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PREFACE 


This manual is not aimed at the absolute beginner. The 
object of the book is to provide a thorough reference guide 
for those Oric-l owners who want to get to know and use the 
machine in depth. It is not intended that the reader should 
go through the Companion from cover to cover, but rather 
select sections appropriate to current interests or prob- 
lems. It is a manual that should be a constant source of 
hints and ideas as the Oric-l programmer learns to use the 
machine more effectively. 


Section One summarises the features of Oric-l BASIC and is 
particularly suitable for readers who have used BASIC on 
other computers, or have programmed in a language other than 
BASIC. All Oric-l BASIC keywords are organised in categ- 
ories, and this provides a springboard into Section 2. Here 
all keywords are arranged in alphabetical sequence and a 
full explanation of the format and features of each is 
given, together with an example of its use. Section 3 
explains how the Oric-l's screen display is organised, in- 
cluding discussion of serial attributes. In Section 4 there 
is a detailed analysis of how the machine stores programs 
and data in memory: an understanding of this topic is vital 
for efficient programming. Section 5 is aimed at the Oric-l 
enthusiast, containing explanation of the workings of the 
ROM, with routine entry points, system variables anda full 
disassembly. The Appendices complete the manual, with the 
fourth being an assessment of the Oric-l MCP-40 Colour 
Printer, which is also referred to in other sections. 


The author is Senior Lecturer in Computer Science at Tees- 
side Polytechnic, holds an MSc in Computer Science, and is a 
Member of the British Computer Society. His other public- 
ations include The ZX80 Companion, The ZX81 Companion, The 
Spectrum Games Companion and many articles in the popular 
computing press. 
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SECTION ONE 
SUMMARY OF ORIC-1 BASIC 


This section consists of an analysis of Oric-l BASIC in 
terms of the general features available. It is especially 
Suitable for those readers who are familiar with BASIC or a 
Similar high-level language, but who wish to quickly appre- 
ciate the particular facilities of Oric-l BASIC. If more 
information is required on an instruction mentioned below, 
turn to Section 2 where the format and effects of each 
instruction is explained in detail. 


1.1 INTRODUCTION 


An Oric-l BASIC program consists of a set of numbered state- 
ments, each statement being composed of one or more BASIC 
instructions, separated by colons (:). Statement numbers 
can range between 0 and 63999 inclusive. The maximum size 
of a statement, including its number, is two lines of the 
display, ie. eighty characters. Statements may be entered 
from the keyboard in any sequence and the Oric-1l will order 
them correctly. 


1.2 DATA STRUCTURES 
Data Types 


Two general types of data are available on the Oric-l, 
namely numbers and characters. Numeric data can either be 
defined as real or integer. Arrays may be formed of real 
numbers, integer numbers or characters and may have a maxi- 
mum of 255 dimensions. Individual array elements are refer- 
red to by subscripts and these are numbered from zero up to 
the maximum dimension. 


Data Names 


Data structures are referred to by unique names, the format 
of which also defines their type. All data names must be in 
upper case, start with an alphabetic character and can be 
optionally followed by several other alphanumeric charac- 
ters, although only the first two characters of the name are 
Significant to the computer: therefore the first two charac- 
ters of different data names must not clash, and there is a 
further restriction that they must not match any BASIC 
keywords (see Appendix 1 for an alphabetical list). Real 
numbers have names following the above rules; integer num- 
bers have names of this form but with an additional % sign 
at the end; and character string names follow similar rules 
but with a $ sign at the end. Array names follow identical 
rules as for single-valued variables, but in addition their 
size must be declared in a DIM instruction if the maximum 
subscript required exceeds 10 (giving eleven elements). A 
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Single-valued character variable may contain a string of up 
to 255 characters in length, while a character array con- 
tains several such strings, possibly of varying lengths. 


Constant Values 


Real numbers within the size range of 2.9384x10-39 4, 
1.70141x1038 may be stored, while integers are in the range 
-32768 to 32767 inclusive. 


Numeric constants are referred to in the normal way, eg. 
34.567, and values such as .01 and 34. are allowed. 
Floating-point format is also permitted, eg. 2.34E5, where 
the number after E must be a positive or negative integer. 
Hexadecimal numbers may be referred to by means of a hash 
Sign in front of the number, eg. K9AB, but only positive 
hexadecimal integers may be used, 


One predefined numeric constant is supplied - PI gives the 
value 3.14159265. 


String constants appear in double quotes, but if the last " 
would be the final character in a statement, it may be 
omitted. 


Storage of Data 


Data names and their values are generally stored in memory 
immediately after the BASIC program statements, with each 
real number taking up five bytes and each integer using two 
bytes. Strings are however an exception: their names are 
stored but these are usually followed by an address which 
points to another section of memory where the actual string 
is found, as a sequence of ASCII values. For more details 
see Section 4. 


Numeric variables are automatically set to zero and charac- 
ter variables to null when a program is RUN, and also when 
the CLEAR instruction is used. The FRE instruction may be 
used to force garbage collection ie. clear redundant data 
items. 


1.3 ASSIGNMENTS & CALCULATIONS 


To asSign a value to a data name or to perform a calcul- 
ation, the assignment instruction is used. This is the LET 
instruction, but on the Oric-l the LET keyword is optional, 
so that it is sufficient to have 


data-name = expression 


so that the result of the expression is assigned to the 
data-name. 


Numeric Assignments 


For a numeric assignment the expression on the right hand 
side consists of one or more constants or data-names linked 
by operators, with functions (see Section 1.7) being possib- 
ly included. Valid numeric operators are the following (in 
order of their priority of evaluation) 


brackets ( ) 
exponentiation 
multiplication and division * / 
addition and subtraction + - 
relations = > < >= <= <> 
Boolean NOT 

Boolean AND 

Boolean OR 


~ 


Boolean and relational operators are permitted in ass- 
ignments since the Boolean value ‘true' is held in memory as 
-l while 'false' is 0. This is further considered in Sec- 
tion 1.5. The Boolean operators AND, OR and NOT can also be 
used to perform binary operations such as masking (see 
Section 2 for more details). 


String Assignments 


Character assignments are permitted but only one operator is 
available: the + sign which concatenates strings together. 
Several functions can be used with character strings and 
these are detailed in the ‘Subroutines and Functions’ para- 
graph, Section 1.7. Numeric and character values cannot be 
mixed in assignments unless conversion functions such as VAL 
and STR$ are employed. 


1.4 INPUT & OUTPUT 


The basic Oric-l has one input device, the keyboard, and two 
outputs, the screen and the printer. In addition memory 
locations can be accessed directly. Each of these forms of 
data transfer has its own BASIC instruction. 


INPOT 


The INPUT instruction is the normal means of getting data 
from the keyboard. A prompt may be included for display on 
the screen prior to data entry, and this is enclosed in 
quotes. The data name(s) specified in the INPUT instruction 
holds the value(s) typed. If several data-names are in- 
cluded, they must be separated by commas. A question mark 
always appears on the screen when INPUT is needed, and if 
insufficient items are entered, in the case of several items 
in the INPUT instruction, then the next prompt is two ques- 
tion marks. 


GET 


In addition to INPUT, the GET instruction can be used to get 
single character entries from the keyboard, without the user 
having to press the RETURN key. Like INPUT, GET causes the 
program to wait until a key is pressed, but there is no 
prompt. On the other hand, the final means of keyboard 
input, the KEYS function, does not wait and gives a null 
value if no key has been pressed. 


PRINT 


To output data to the screen the PRINT instruction may be 
used. It may be abbreviated as just ?. A list of con- 
stants, data-names or expressions, possibly separated by 
semicolons or commas appears in the PRINT instruction. If 
commas are used as separators then results are displayed at 
settings five characters apart on the screen. If either 
semicolons or no separators appear then results follow imme- 
diately upon each other. Unless a PRINT instruction ends 
with a semicolon, then the output from the subsequent PRINT 
will appear on the next line. Two functions can be used to 
determine the layout of PRINTed results - TAB causes the 
print position to move to a given point on the line (but 
beware bugs), and SPC prints a given number of spaces. 


More sophisticated graphical output may be obtained using 
PLOT, DRAW and so on, as explained in Section 1.8. 


LPRINT is the printer equivalent of PRINT and similar rules 
apply. 


Direct Memory Access 


Direct access to memory locations may be achieved through 
PEEK and POKE, which transfer data in single bytes, while 
DEEK and DOKE transfer data in pairs of bytes. In these 
instructions the address of the required memory location 
must be specified. 


READ, DATA & RESTORE 


A group of three final instructions remains to be covered in 
this subsection, and they really lie somewhere on the boun- 
dary between Input / Output and Assignment facilities. In 
the DATA instruction numeric or string constants can be set 
and assigned to data-names in the accompanying READ instruc- 
tions. As a constant is read from a DATA line so a pointer 
in the Oric-l moves to the next iteminthe line. Eventual- 
ly all data from the DATA instructions will have been read. 
If the pointer must be reset to the first constant then 
RESTORE is used. RESTORE can only cause the pointer to 
indicate the first data item in the program's first DATA 
line - no facility exists to point it at a specific DATA 
line. 


1.5 TRANSFER OF CONTROL 


Normally the statements in a BASIC program are executed in 
ascending order of statement number, but several instruc- 
tions exist to transfer control of the Oric-1l to instruc- 
tions elsewhere in the program, or to halt a program. 


GOTO & GOSUB 


The GOTO instruction causes the machine to jump to a diffe- 
rent line number, as given by the value of the number or 
expression following GOTO. GOSUB is similar as explained in 
Section 1.7. 


IF 


While GOTO transfers control unconditionally, the IF in- 
struction does so depending upon whether a condition is 
true. The form of the instruction 


IF condition THEN action(s) 


is self-explanatory, with multiple actions being separated 
by colons: none of the actions in the statement will be 
followed unless the condition is true. The actions may be 
any BASIC instructions, including another IF. The addition 
of an ELSE clause at the end enables the programmer to 
specify what action to take if the condition is false. 


The special case of 
IF condition THEN GOTO line-number 
can be abbreviated to 
IF condition THEN line-number 


The condition part of the IF instruction typically consists 
of two expressions being compared for relative size using 
the relational operators 


= 2 < >= <= <7 


but several conditions may be linked by the operators AND 
and OR, or prefaced by NOT. However each must be a complete 
condition in itself. Numbers or strings can appear in 
conditional expressions, but they cannot be mixed. 


AS mentioned in Section 1.3, the values 'true' and 'false' 
are held in the Oric-l as -1l and 0 respectively, and this 
means that the condition part of an IF instruction could be 
replaced by a numeric expression: if it results in 0 then 
the action will not be followed, if it results in -l (or in 
fact any non-zero value) then it will. The keywords TRUE 
and FALSE are available on the Oric-l, and these have the 
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values -l and 0 respectively. 
ON -— GOTO 


To cope with situations where a jump is needed to different 
parts of the program depending upon a certain value, the ON- 
GOTO instruction is available. A list of possible line 
number values follows the GOTO, and the expression after the 
ON keyword determines to which of the line numbers the 
program jumps, by evaluating to the appropriate sequence 
number. If there is no matching line number then control is 
transferred to the line following the ON instruction. 


WAIT 


The WAIT instruction causes program execution to pause for a 
given multiple of ten milliseconds. 


STOP & END 


Finally, the STOP instruction is used to halt program exec- 
ution, and the Oric-l indicates where the program broke off 
by a message before the ‘Ready' prompt. The END instruction 
may also be used to stop a program: its effect is the same 
as STOP, except that there is no "BREAK IN ..." message. 


1.6 ITERATION 


Most programs have sets of instructions that need to be 
repeated several times. The Oric-l has two pairs of in- 
structions that give these iterative facilities, FOR and 
NEXT, and REPEAT and UNTIL. The former repeats instructions 
a given number of times while incrementing a counter, while 
the latter repeats instructions until a given condition is 
true. 


FOR & NEXT 
The FOR and NEXT instructions are used in the following way 


FOR counter = start TO end STEP stepvalue 
< instructions to be repeated > 
NEXT counter 


‘Counter' must be a real numeric dataname, but ‘start', 
‘'end' and 'stepvalue' can all be numeric expressions. The 
STEP clause is omitted if the step is one. The counter is 
initially set to the start value, and each time the NEXT 
instruction is found the counter increments by the step 
value, and provided it does not exceed the end value, the 
loop repeats. This means that the middle instructions will 
be executed at least once. FOR & NEXT statements can be 
embedded together but care must be taken not to interleave 
them. The ‘counter' part of the NEXT instruction can be 
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omitted, providing this does not result in ambiguity. 
REPEAT & UNTIL 
The REPEAT and UNTIL instructions appear as follows 


REPEAT 
< instructions to be repeated > 
UNTIL condition 


There is no automatic incrementing of counters, simply repe- 
tition of the middle instructions until the condition is 
true. Naturally this results in the instructions being 
followed at least once. The condition part follows the same 
rules as in the IF statement. 


As in the FOR construct, REPEATS can be embedded together 
and the memory stack of the Oric-l is used to keep track of 
which loop the program is currently repeating. To jump out 
of a loop the PULL instruction can be used. This 'pulls'a 
counter off the stack so that the Oric-l reverts to the loop 
at the next outer level. 


1.7 SUBROUTINES & FUNCTIONS 
BASIC Subroutines 


The Oric-l implements BASIC subroutine jumps by means of 
GOSUB followed by a line number expression, and subroutine 
exits by the RETURN instruction. RETURN causes the program 
to go back to the instruction following the original GOSUB. 
Computed subroutine jumps can be formulated using ON-GOSUB 
which functions in a Similar way to ON-GOTO as described in 
Section 1.5. Subroutines may be nested, ie. subroutines may 
call other subroutines, and the memory stack is used to keep 
track of return addresses. The POP instruction may be used 
to remove a return address from the stack so that a routine 
exits to the previous outer level, similar to PULL for 
nested FOR-NEXT loops. 


Machine-Code Subroutines 
The Oric-l programmer can also include machine-code routine 
calls, using the CALL instruction. Control returns to the 
program when a 6502 RTS instruction is encountered. 
Functions 
Several functions are intrinsic to the Oric-l: full details 
are given in the alphabetical reference guide of Section 2, 


but a brief description now follows. Numeric functions: 


ABS absolute (unsigned) value 
ATN arctangent 
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COS cosine 

HEXS decimal-to-hexadecimal conversion 
LN natural logarithm (1log,) 

LOG base 10 logarithm (10g) 0) 

RND generates pseudo-random number 
SGN indicates the sign of a number 
SIN sine 

SQR square root 

TAN tangent 


Character string functions: 


ASC character-to-ASCII conversion 
CHR$ ASCII-to-character conversion 
KEYS value of key pressed 

LEFTS left substring slice 

LEN length of string 

MIDS middle substring slice 

RIGHTS right substring slice 

STRS$ number-to-string conversion 
VAL string-to-number conversion 


Output functions: 


POINT indicates nature of HIRES pixel 


POS horizontal cursor position 
SCRN ASCII code at given position 
SPC prints spaces 

TAB moves print position 


Machine-level functions: 


DEEK value held in pair of bytes 
PEEK value held in byte 
USR machine-code routine call 


If the supplied functions are insufficient, the user can 
define his own in BASIC uSing DEF FN and invoke it using FN. 
Functions can even be defined in machine-code by storing the 
Start address in bytes HO0O2FC and HO2FD and invoking the 
function with '&'. New BASIC instructions can be set up in 
machine-code in a similar way: the start address of the 
machine code section is stored in bytes #02F5 and #02F6, and 
the instruction is subsequently called '!',. 


1.8 SOUND 
Predefined Sounds 


The three-channel sound synthesizer on the Oric-l can be 
used to a full extent through several BASIC instructions. 
There are four predefined sounds, namely EXPLODE, PING, 
SHOOT and ZAP. Additionally the commands SOUND, PLAY and 
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MUSIC provide the means of producing a large variety of 
musical and non-musical sounds. 


SOUND, MUSIC & PLAY 


MUSIC as its name suggests is for musical notes and it 
specifies which of three tone channels is to be switched on, 
what octave and what note, and also the volume. SOUND is 
normally used for sounds other than music and can specify 
any of three tone channels or three random noise channels, 
the pitch of the note, and its volume. Once several SOUND 
or MUSIC instructions have defined the combinations of 
sounds wanted, it is the PLAY instruction which actually 
starts the sound (or stops it). It defines the groupings of 
tone and noise channels to be played, their envelope (the 
shape of the sound eg. rising and falling) and length. The 
WAIT instruction previously explained (Section 1.5) can also 
be used to control the length of sounds by specifying a 
delay before the sound is stopped. 


1.9 GRAPHICS 


The Oric-l has eight display colours, numbered from 0 to 7, 
black, red, green, yellow, blue, magenta, cyan, and white. 
The screen background colour is set by the PAPER instruction 
and foreground by INK. The screen is cleared by CLS, but 
this is not necessary in order for PAPER and INK to take 
effect. Information can be displayed in the above colours, 
but also with different attributes such as flashing or doub- 
le height. This is achieved by placing special control 
characters (with codes 0 to 31) in front of the data. There 
is a detailed analysis of the Oric-l screen display in 
Section 3. 


High Resolution 


However, to summarise further, the machine has two levels of 
screen resolution, high and low. The former is invoked by 
the HIRES instruction and gives a grid of 200 by 240 pixel 
positions. Several instructions may only be used in this 
mode, CHAR, CIRCLE, CURMOV, CURSET, DRAW, FILL and PATTERN, 
CURSET sets the cursor at an absolute position on the 
screen, CURMOV moves it by a given number of x and y pos- 
itions, DRAW draws a straight line from the current cursor 
position to another point relative to it, CIRCLE draws a 
circle of given radius centred on the current cursor pos- 
ition, and CHAR displays a character at the cursor position. 
Of the remaining pair, FILL fills a given number of pos- 
itions with a character, and PATTERN sets the pattern of the 
line to be drawn by DRAW and CIRCLE . The POINT function 
mentioned in Section 1.7 is also used in HIRES. 


14 


Low Resolution 


Low resolution displays have 27 lines of 40 characters. 
This is the mode which the Oric-l adopts when switched on, 
but it can be invoked by the instructions TEXT, LORES 0 or 
LORES 1. The third displays all characters as Prestel-type 
graphics blocks (the Oric-l alternate character set). The 
PLOT instruction is used in low resolution to display a 
character string at a given screen position. Note also the 
use of the SCRN function to get the value of a character at 
a position. 


Memory Organisation 


Screen displays are memory mapped, with HIRES obviously 
needing more memory. By placing characters directly into 
memory locations they appear on the screen. This is done by 
the POKE instruction, mentioned in the next section on 
Machine-Level instructions, where the GRAB and RELEASE com- 
mands which manipulate this high-resolution memory area are 
also explained. 


1.10 MACHINE-LEVEL 


There is no separate monitor on the Oric-l so all low-level 
actions have to be done via BASIC instructions. Many of 
these have already been mentioned in previous sections. The 
PEEK and DEEK functions return the contents of specific 
memory locations, the latter giving the value in a pair of 
locations in the usual 6502 way (ie. high order byte last). 
Similarly POKE and DOKE place data in locations. CALL, USR, 
DEF USR, ! and & all provide ways of using machine-code 
subroutines, as shown in Section 1.7. 


Finally four instructions manipulate areas of memory. GRAB 
assigns the memory previously allocated for high-resolution 
display to program/data storage, while RELEASE does the 
reverse. HIMEM sets the upper limit of memory for use by 
BASIC programs. Finally FRE can be used to show how much 
memory iS available or to tidy up the data storage area by 
removing redundant items. 


1.11 DOCUMENTATION & DEBUGGING AIDS 
Comments 


Comments may be added at any point in a BASIC program by 
using the REM instruction. REM is followed by any combin- 
ation of symbols suitable for annotation. Comments may also 
be included at the end of any instruction through using a 
single quote followed by the comment. 


Lo 


Trace Facilities 


The execution of a program may be traced using the TRON 
instruction: this causes the line-numbers of executed state- 
ments to be displayed in parentheses. This trace is swit- 
ched off by TROFF. Other aids to debugging are mentioned in 
the following section on System Commands. 


1.12 SYSTEM COMMANDS 


Several commands control the general operation of the compu- 
ter. RUN clears current valués of data-names and starts 
executing the BASIC program currently held, at a given line- 
number if specified, or at the start if not. GOTO can be 
used in a Similar way, except that values are not cleared, 
LIST displays the program statements in line-number se- 
quence, and can specify a given line-number range or star- 
ting number. The SPACE bar suspends a listing. LLIST 
produces a program listing on the printer. The NEW command 
is used to erase the current program from memory. If only 
the data area is to be cleared then CLEAR is used - it sets 
numeric data to zero and strings to nuli. 


Instructions as Commands 


Like GOTO, many other BASIC instructions can be used without 
line-numbers to act as system commands. PRINT is part- 
icularly useful in this context as it can be used to display 
the contents of variables when a program stops, perhaps when 
debugging. 

Control Keys 


Several control keys (CTRL plus another key) may be used as 
commands, for example 


CTRL C interrupts program 

CTRL F toggles on/off keyclick 

CTRL L clears screen 

CTRL Q toggles on/off cursor 

CTRL S toggles on/off screen display 
CTRL T toggles upper/lower case 


Program editing also uses a control key: to change a line 
the cursor is positioned appropriately uSing the cursor 
movement keys and then CTRL A is used to send a character to 
the Oric-l's input buffer. The DEL key may also be used to 
delete characters, while CTRL X cancels the line currently 
being entered. 


RESET 


The reset key positioned under the keyboard may be used to 


interrupt a program if all else fails, since it acts asa 
“warm start", the program listing remaining intact. 
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Cassette Handling 


Finally, cassette handling is achieved by CSAVE and CLOAD. 
These can transfer programs or memory blocks (eg. screens) 
to and from cassette in either fast mode (2400 bauds) or 
slow mode (300 bauds). Automatic load and run is also 
possible. 
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SECTION TWO 
ORIC-1 BASIC REFERENCE GUIDE 


In this section each keyword used in Oric-1l BASIC is ex- 
plained, with examples of its use. Keywords are arranged 
alphabetically. The storage code included for each keyword 
is the one-byte hexadecimal value which the machine uses to 
store the keyword in memory: for a full explanation of this 
concept see Section 3.2. 


ABS 


Format A function used as part of a numeric expres- 
sion, in the form 


ABS (x) 
where x 1S a numeric expression 
Storage Code D8 


Explanation ABS returns the absolute value of the result 
of the expression in brackets. This is the result without 
its sign. It is used whenever the size of a quantity is 
required, regardless of its sign, typically when comparing 
two numbers to determine how close they are to each other. 


Example Assume we have a very simple game in which a 
random number R is set by the Oric-l and the user has to 
guess it. His guess G is compared to R, and when it is 
within three, we wish to output a message “You are very 
close". Thus 


IF ABS(G-R)<4 THEN PRINT "You are very close" 


Note that if ABS was not used, then the condition would be 
true if R was 50 and G was any value smaller than 54, since 
negative numbers are obviously less than 4. 


AND 


Pormat A connector keyword with two properties, 
Firstly it may be used to link two conditions, for example 
in an IF statement: 


IF cl AND c2 THEN action 
where cl and c2 are conditions. Secondly it may be used as 
a binary operation in a numeric expression in the following 
manner: 
xl AND x2 
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where xl and x2 are numeric expressions 
Storage Code Dl 


Explanation When used to form a combined condition from 
two other conditions, AND demands that both conditions be 
true. The table below illustrates this 


False AND False = False 
False AND True = False 
True AND False = False 
True AND True = True 


When used as a binary operation, AND compares the binary 
digits in the numbers it is joining, and for each corres- 
ponding pair of bits it returns a 0 or 1 value, according to 
the rules: 


0 AND 0 = 0 
0 AND l = 0 
1 AND 0 = 0 
1 AND 1 = l 


This shows the similarity between the two uses of AND. In 
fact to the Oric-l there is no difference since it stores 
the value True as binary 1's and False as binary 0's. 


Example (i) To test whether a variable X is within a 
valid range, say 0 - 100 inclusive we may have: 


IF X>=0 AND X<=100 THEN PRINT "OK" 


Brackets are not needed around the two conditions since 
relational operators have a higher priority than AND, but 
the conditions must be complete, ie. X>=0 AND <#=100 is 
incorrect. 


(ii) AND is often used to mask off bits of a number that we 
are not interested in. For example, memory location #026A 
contains bits which indicate certain states of the Oric-l 
(see Section 5), eg. whether CAPS are set, and whether the 
cursor is displayed. The fifth bit shows whether the key- 
click is on, by being set to 0 if it is and 1 if it is not. 
The following instruction shows how AND may be used to test 
this bit 


IF (PEEK(#026A) AND 8)*0 THEN PRINT “KEYCLICK ON" 
Since 8 has the binary pattern 00001000 it masks off all 
except the fifth bit. 


References IF, LET, PEEK, POKE 
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ASC 


Format A function used as part of a numeric expres: 
sion in the form 


ASC(s) 
where s is a string expression. 
Storage Code EC 


Explanation  $#ASC converts the first character in the 
string expression to its ASCII code. Characters are store 
by means of one byte codes according to a particular conven- 
tion known as ASCII, and a full list of these codes appears 
in Appendix 2. 


Example It is often desirable in a program to get thé 
user to input a single digit number, for example in response 
to a menu choice. To remove the need for the user to press 
RETURN, the GET instruction may be used to get a character 
from the keyboard. However the character must then be 
converted to a number for use in the program. ASC may be 
used in this process in the following way 


GET K$: N=ASC(K$)-48 


The ASCII codes for the digits 0 to 9 are 49 to 57 respect: 
ively, thus N is calculated appropriately . 


References CHR$, STRS$, Appendix 2 
ATN 
Pormat A function used as part of a numeric expres- 


sion, in the form 
ATN (x) 
where x is a numeric expression. 
Storage Code ES 
Explanation The function returns the value of the angle 


(in radians) whose tangent is given by the expression in 
brackets. 


Example Consider a simple formula to convert the 
gradient of a slope, expressed as a percentage (P), to an 
angle in degrees (A) 

A#ATN(P/100 ) *180/PI 
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The factor of 180/PI converts the result of ATN from radians 
to degrees. 


References TAN 
AUTO 
Format An option keyword which may be appended to 


the CSAVE command, in the following way 
CSAVE “p",AUTO 
Storage Code C7 
Explanation AUTO causes the program named p to be stored 
on cassette in such a way that it will RUN automatically 


once loaded by CLOAD. A non-zero value in memory location 
0063 indicates this. 


Example CSAVE “MYPROG",AUTO 

References CLOAD, CSAVE 

CALL 

Format An instruction of the form 
CALL n 


where n is an integer expression. 
Storage Code BF 


Explanation CALL transfers program control to a machine 
code subroutine at an address given by the expression. The 
routine exits when a M60 code (6502 instruction RTS) is 
found, and goes back to the instruction following the CALL. 


Example CALL may be used either to call routines 
written by the user himself or routines in the Oric-l ROM. 
Examples of the latter are 


(i) CALL #FBO3 produces a keyclick within a 
program 


(ii) CALL BE6CA initialises VIA chip prior 
to cassette transfer 


References USR 
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CHAR 


Format A HIRES instruction of the form 
CHAR a,b,f 
where a, b and f are numeric expressions - a gives an ASCII 


code in the range 32 - 127, b gives 0 or 1, and f results in 
QO. = “3. 


Storage Code BO 


Explanation The instruction is used to place a character 
on the HIRES screen at the current cursor position. In the 
format above, a is the code of the character, b shows wheth- 
er the standard character set (=0) or the alternate char- 
acter set (1) is used, and f is the FB code: 


0: background 
ye foreground 
2.3 invert 

ce. null 


The instruction will not work in modes other than HIRES. 


Example To place a text message M$ on the HIRES 
screen starting at the current position, the following rou- 
tine may be employed 


FOR C=l TO LEN(M$): CHAR ASC(MIDS(MS$,C,1)) 
,0,l: CURMOV 6,0,0: NEXT 


References CURSET, HIRES, STRS$, Section 3 
CHRS 
Format A function used as part of a string expres- 


sion, in the form 
CHRS$ (n) 


where n is a numeric expression evaluating to an integer 
between 0 and 255 inclusive. 


Storage Code ED 


Explanation The CHR$ function returns a single character 
whose ASCII code is given by n above. If the value of n is 
outside the range 0 - 255 then an 'Illegal Quantity Error' 
message results. For a list of ASCII codes, see Appendix 2, 


Example The function is particularly useful for pro- 
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ducing characters outside of the normal printed character 
set. AS Appendix 2 shows, several characters in the code 
range 0 - 31 can produce useful effects, and these can only 
be used in a program via CHR$. The example below sounds the 
‘bell' and then displays DONG!!! on a red background 


PRINT CHRS$(7):CHRS(27);"QDONG!!!" 


Character 27 is the ESC code - this combines with the Q to 
give the serial attribute for background red. 


CHR$ may also, be used in LPRINT instructions to send special 
characters to the printer to, for example, change the print 
size. With the Oric MCP-40 Printer many such control codes 
are available - a full list is given in Appendix 4. 


References LPRINT, PRINT, Appendices 2 & 4 
CIRCLE 
Format A HIRES instruction of the form: 
CIRCLE r,f 
where r is an integer expression in the range 1 - 119 and f 
is 0 - 3. 


Storage Code AD 


Explanation CIRCLE draws a circle of radius r centred on 
the current position on the HIRES screen, using f as its FB 
code (see CHAR). If any part of the circle goes outside of 
the HIRES screen range then an ‘Illegal Quantity Error' 
results. The instruction will not work in modes other than 
HIRES. Since the pixels in the HIRES screen are not sym- 
metrical, the circles drawn do not appear quite symmetrical. 
Thus is inherent to the Oric-l, and results from the fact 
that characters are drawn on a 6x 8 grid, rather than the 
more usual 8 x 8. The PATTERN instruction can be used to 
vary the layout of the lines with which circles are drawn. 


Example The following program draws solid circles of 
random radius (up to 19) at random positions on the screen 
until the S key is pressed: 


10 HIRES:PAPER 6 

20 REPEAT 

30 R=RND(1)*20: X=RND(1)*200+20:Y=RND(1 
)}*160+20 

40 CURSET X,Y,0 

50 FOR C=l TO R:CIRCLE C,1:NEXT 

60 UNTIL KEYS$="S" 
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References CURMOV, HIRES, PATTERN, POINT, Appendix 3 


CLEAR 
Pormat An instruction of the form 
CLEAR 
Storage Code BD 
Explanation CLEAR sets the value of all numeric variable 


to zero and all character variables to null. RUN also hat 
this effect 


Example Typically employed when the user wants to 
start the program again eg. 


IF K$="Y" THEN CLEAR: GOTO 100 


References RUN 
CLOAD 
Format A command of one of the following forms 


(i) CLOAD “*" 
(ii) CLOAD “p" 
(iii) CLOAD "p",A n1,E n2 


and optionally 2S can be added at the end of any of 
the above. ‘p‘tis the cassette filename and ‘nl* and 'n2'‘are 
integers 


Storage Code B6 


Explanation Used to load a file from cassette tape, 
Format (i) loads the first program file found on tape, 
Format (ii) loads the program file named as specified. The 
program name can be up to seventeen characters long and car 
include special characters as well as alphanumerics. Format 
(iii) loads a named file representing a block of memory 
locations, the addresses given by nl (start) and n2 (end), 
The option ,S at the end of (i) to (iii) loads a file store 
at slow speed (300 bauds) rather than the normal 1200 bauds, 
CLOAD can also be used as a program instruction. 


The ‘Load Aborted’ message may appear in the middle of a 
CLOAD: this usually means that the volume level on the 
cassette recorder is too low. In contrast, lines of UUU..., 
in a listing after CLOAD has been executed usually indicates 
too high a setting. Often the volume level for successful 
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loading is very sensitive. 


Example A program operating in HIRES may often take 
some time to draw a complex picture and it is often disap- 
pointing to switch off the Oric-l and thus lose the picture. 
However since the HIRES screen is mapped directly onto 
memory, it may be stored on tape and loaded again in the 
future. The following command achieves this, assuming the 
HIRES picture was stored as ‘HP’. 


HIRES:CLOAD “HP",A#A000,EHKRBFDF 


References AUTO, CSAVE 

CLS 

Format An instruction of the form 
CLS 


Storage Code 94 


Explanation Clears the screen in any resolution mode. It 
does not effect the PAPER and INK colours, but other serial 
attributes are cleared out, Note that CTRL L has the same 
effect in immediate mode. 


Example As well as its common use as a means of 
preparing the screen for a fresh set of results, CLS can 
also be used to produce primitive animation on the screen. 
The following instruction moves a ‘ball' across the screen 


FOR X=0 TO 38:PLOT X,10,"O":WAIT 10:CLS:NEXT 


CONT 
Format A command of the form 
CONT 
Storage Code BB 
Explanation Restarts the execution of a program after it 


has been stopped, eg. by pressing CTRL C. 


Example CONT can be used effectively in program 
debugging. A program may be interrupted by CTRL C, values 
of significant variables can be examined using PRINT in 
immediate mode, and then CONT can restart the program. 
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COS 


Format A function used as part of a numeric expres: 


sion, of the form 
COS(x) 


where x 1S a numeric expression 
Storage Code E2 


Explanation COS is a trigonometric function which returns 
the cosine of the angle whose value in radians is given by1 
above 


Example The following routine uses polar coordinates 
to drawa circle of circles on the screen 


10 HIRES:PAPER 4:INK 0 

20 FOR A=0 TO 2*PI STEP PI/4 

30 CURSET 40*COS(A)+100,40*SIN(A)+100,0 
40 CIRCLE 40,1 


50 NEXT 
References PI, SIN 
CSAVE 
Format A command of one of the following forms 
(i)  CSAVE "p" 
(ii) CSAVE "p",AUTO 
(iii) CSAVE “p",A nl,E n2 
and optionally ,S can be added at the end of any of 


the above. '‘'p' is the cassette filename and ‘nl' and ‘'n2' 
are integers. 


Storage Code B7 


Explanation Used to store a program or memory block asa 
file on cassette tape. Format (i) stores the current BASIC 
program under the name specified. The name can be up to 
seventeen characters long and can include special characters 
as well as alphanumerics. Format (ii) is identical, except 
that it causes the program to run automatically once it has 
been CLOADed. Format (iii) stores a block of memory fron 
locations nl to n2 on tape. If ,S is added then the file is 
stored on tape at 300 bauds rather than the faster 1200 
bauds. 


When AUTO is used it causes a non-zero value to be placed in 
memory location #0063 as an indicator. The filename is held 
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ina block starting at address H0035, and byte H0067 indi- 
cates fast (=0) or slow (=1). 


Example To store a program called “ETHEL” in slow 
mode: 
CSAVE “ETHEL",S 


References AUTO, CLOAD 
CURMOV 
Format A HIRES instruction of the form 


CURMOV nl,n2,f 
where nl and n2 are integer expressions and f is 0 to 3. 
Storage Code AB 


Explanation CURMOV moves the cursor on the HIRES screen 
relative to its current position by nl on the x-axis and n2 
on the y-axis, with an FB code of f£ (see CHAR). If the 
cursor is moved out of the range 0 to 239 on the x~axis or 0 
to 199 on the y-axis then this gives an ‘Illegal Quantity 
Error’. 


Example The instruction is used whenever a relative 
cursor move is required when displaying information in HIRES 
- for absolute moves CURSET is employed. The following 
illustrates the use of these two instructions by drawing 
circles covering the entire display 


10 HIRES:PAPER 6:INK 0 

20 FOR y= 10 TO 190 STEP 10 

30 CURSET 10,Y,3 

40 FOR C=l TO 22: CIRCLE 9,l: CURMOV 10, 
0,l: NEXT C 


50 NEXT Y 
References CHAR, HIRES, Section 3 
CURSET 
Format A HIRES instruction of the form 


CURSET nl,n2,f 


where nl and n2 are integer expressions, nl in the range 0 - 
239 and n2 in the range 0 - 199, and f is 0 - 3. 


Storage Code AA 
ae | 


Explanation CURSET sets the cursor on the HIRES screen to 
position nl on the x-axis and n2 on the y-axis, with an FB 
code of f (see CHAR). If the cursor is set out of the range 
0 to 239 on the x-axis or 0 to 199 on the y-axis then this 
gives an ‘Illegal Quantity Error’. 


Example When the HIRES instruction is used, the 
cursor is automatically set to (0,0). Clearly many HIRES 
programs do not require drawing to start at this point, 80 
CURSET is used to initially position the cursor. Subse- 
quently the instruction is used whenever an absolute cursor 
setting is needed. The following program draws ‘snowflakes' 
randomly on the screen until the S key is pressed 


10 HIRES:PAPER 4:INK 7 

20 REPEAT 

30 X=RND(1)*200+20:Y=RND(1)*160+20:R=R 
ND(1) *15+5 

40 FOR Ax0 TO 2*PI STEP 0.2 

50 CURSET X,Y,0 

60 DRAW R*SIN(A),R*COS(A),1 

70 NEXT A 

80 UNTIL KEYS$="S" 


See also the example in CURMOV. 


References CIRCLE, DRAW, FILL, HIRES, POINT, Section 3 
DATA 
Format An instruction of the form 


DATA list of constants separated by commas 


Storage Code 91 


Explanation The DATA instruction is always used in con- 
junction with the READ instruction, to define constants 
which will be assigned to data names in the READ. Constants 
may be numeric (including hexadecimal and E format) or 
string. String constants need not be enclosed in quotes 
unless they contain required leading spaces. Without quotes 
leading spaces are ignored but trailing spaces are not. If 
there is a null item in a DATA instruction, ie. two commas 
together, then the respective variable will be set to zero 
if it is numeric or null if it is a string. The Oric-]l 
maintains a pointer showing the next data item to be read: 
this is set to the beginning of the first DATA instruction 
when a program is RUN and also by the RESTORE instruction, 
If a program attempts to READ more data items than are 
available then an ‘Out of data‘ error occurs. 


Example (1) The following example illustrates the 


28 


above principles: 


10 DIM A(5),A$(5) 

20 FOR C=l TO 5:READ A(C):PRINT A(C):NE 
XT 

30 FOR C=l TO 5:READ AS$(C):PRINT "."AS$( 
C)".":NEXT 

40 DATA .3,#20,2.3E4,-9,1000 

50 DATA" N "“", M_,TO ME,FROM- ,YOU 


(ii) In realistic programs, DATA statements are not the most 
efficient way of setting up data, since once the data has 
been read, the DATA statement is usually redundant, and 
takes up memory space. However providing they are not 
overused and providing memory is not at a premium, they can 
be a help. The following routine redefines the character m 
to a robot shape: 


10 FOR C=0 TO 7 

20 READ B:POKE 46080+ASC("m") *8+C,B 
30 NEXT 

40 DATA 12,63,45,45,12,18,18,51 

50 PRINT “m* 


References READ, RESTORE 
DEEK 
Format A function used as part of a numeric expres- 


sion, in the form 
DEEK (n) 
where n is an integer expression in the range 0 to 65535. 


Storage Code E7 


Explanation DEEK returns the value of the double-length 
integer in the pair of bytes starting at the address given 
by n above. The first byte of the pair is considered to 
hold the low-order half of the integer and the second byte 
has the high-order half. Thus if we assume byte 1 holds nl 
and byte 2 holds n2 then the DEEK function gives the value 
(n2*256)+4+nl. 


Example The function is used whenever the contents of 
memory need to be shown and when it is known that a two-byte 
number is held. For example bytes BO2F5 and #02F6 contain 
the start address of the user-defined ‘'!' instruction. This 
is revealed by 

PRINT DEEK(#02F5) 
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References PEEK 


DEF 
Format An instruction of one of the following forms 


(i) DEF FN v(w) = x 
where v and w are numeric datanames 
and x is a numeric expression 


(ii) DEF USR =n 
where n is an integer expression 


Storage Code B8 


Explanation The DEF instruction has no noticeable effect 
directly - it simply defines. Format (i) defines a numeric 
function of the name FN v, with argument w. The expression 
x should contain w. The argument cannot be omitted, and 
there can be only one. The expression can contain data- 
names other than the argument but this is not recommended. 


Format (ii) defines the starting address in memory of a 
machine-code subroutine which will be called by the USR 
function. The address is given by n above. 


Example (1) Whenever an expression occurs frequently 
in a program and it is based upon the value of one argument, 
it can be replaced by a function. A common use of DEF FN is 
for the generation of random numbers, since these are often 
required between one and a given integer. For example to 
get a random number between 1 and 100 we use the expression 
INT(RND(1)*100)4+1. If we define the function FN R as fol- 
lows 


DEF FN R(N)=INT(RND(1)*N)+1 


then FN R(100) will give us integers between 1 and 100, FN 
R(20) between 1 and 20, and so on. We can even use the 
function in an expression, eg. AS=CHRS (64+FNR(26)) sets 
A$ to a random upper-case letter. 


(ii) There are two ways of invoking machine-code routines, 
CALL and USR. The latter is used when some value needs to 
be obtained from the routine, since it returns the value 
from the floating-point accumulator. Machine-code routines 
are normally placed at the beginning of page 4 of memory, 
and the DEF instruction is then used as follows 


DEF USR = #0400 


References FN, USR 
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DIM 


Format An instruction of the form 
DIM v(nl,n2,...),w(ml,m2,...),.., 


where v and w are data-names, and nl, n2, ml, m2 are integer 
expressions 


Storage Code 93 


Explanation The DIM instruction allocates space in memory 
for arrays. The data-names of the arrays (v and w above) 
may be any valid name, real or integer or character. There 
is a maximum of 255 dimensions for an array, and the size of 
dimensions (nl, n2, ml, m2 above) is limited only by the 
amount of memory available. Elements in arrays are referred 
to by subscripts, one for each dimension, starting at 0. 
Arrays need not be dimensioned providing they do not have 
more than 1l elements. String arrays have strings rather 
than just individual characters as their elements, and these 
strings need not be the same length. Once the size of an 
array has been set by a DIM statement it may not be rede- 
fined - otherwise the 'Redimensioned array error' results. 


Example Arrays are often used to hold constant values 
in a program, as a list (one-dimensional arrays) or table. 
The following program sets up a table of the months in the 
year and theirc lengths, and then given a day number prints 
the date. 


10 DIM MS$(12,2) 

20 FOR M=l TO 12:READ MS$(M,1):READ MS$( 
M,2) :NEXT 

30 DATA January,31,February,28,March,3 
1,April, 30,May, 31,June, 30,July, 3l 

40 DATA August,31,September ,30,O0ctober 
,3l1,November , 30,December, 31 

50 INPUT “DAY NUMBER";D 

60 D=INT(D):IF D>365 OR D<l THEN 50 
70 FOR M=1 TO 12 

80 VM=VAL(MS(M,2)) 

90 IF D<=VM THEN PRINT D;MS$(M,1):END 
100 D=D-VM 

110 NEXT 


DOKE 


Pormat An instruction of the form 


DOKE m,n 
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where m and n are integer expressions. 
Storage Code 8A 


Explanation The instruction places a two-byte integer n 
in the pair of bytes starting at address m. The high order 
half of the integer is put in the second byte and the lov 
order half in the first - see below. 


Examples DOKE is used when it is known that a given 
memory location may contain a two-byte integer - typically 
an address. For example bytes #H001B and HOOIC contain an 
address in the Oric-1 ROM which is jumped to when a BASIC 
program ends. This could be changed so that the Oric-l 
always clears its memory when a program ends - an excellent 
way of protecting a program from curious users. The address 
jumped to when the Oric-l is switched on is HF42D, so if 
this address is used, the desired effect will be achieved, 
Use 


DOKE #001B,HBF42D 


Note that this puts #2D into location K001B and KF4 into 
location #001C. 


References POKE 
DRAW 
Pormat A HIRES instruction of the form 


DRAW nl1,n2,f 
where nl and n2 are integer expressions anf f is 0 to 3. 
Storage Code AC 


Explanation The DRAW instruction draws a line from the 
current cursor position on the HIRES screen to a position al 
away on the x-axis and n2 away on the y-axis, with an FB 
code of f (see CHAR): thus nl and n2 are relative coord- 
inates. If the instruction attempts to draw a line outside 
the x range 0 - 239 or the y range 0 - 199 then an ‘Illegal 
Quantity Error’ is flagged. The PATTERN instruction can be 
used to givea different layout to the lines drawn. 


Examples DRAW may be used to create any pictures on 
the HIRES screen where straight lines are required. The 
following example draws an 8 x 8 grid 


10 HIRES: PAPER6: INKO 
20 FOR X=40 TO 200 STEP 20 
30 CURSET X,20,1:DRAW 0,160,1 
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40 NEXT X 
50 FOR Y=20 TO 180 STEP 20 
60 CURSET 40,Y,1:DRAW 160,0,1 


70 NEXT Y 
References HIRES, PATTERN, TAN, Section 3 
EDIT 
Format A command of the form 

EDIT n 

where n 1S an integer. 
Storage Code 81 
Explanation A command which may be used to bring a copy 


of program line n to the cursor position, prior to editing. 
It is not documented in the current Oric-l manual. To alter 
a line the cursor movement keys may be used to position the 
cursor on the appropriate characters, and these are then 
sent to the Oric-l's input buffer by CTRL A. Alternatively 
new characters can be typed in. Once the line has been 
correctly typed, RETURN enters it into the program memory 
area. CTRL X can be used to cancel a line, while DEL can be 
used to delete individual characters 


Example EDIT 10 
ELSE 
Format A keyword providing an optional clause in the 


IF instruction, in the form 

IF c THEN al ELSE a2 
where c is a condition and al and a2 are actions. 
Storage Code C8 


Explanation & Example See IPF 


References IF 
END 
Pormat An instruction of the form 
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END 
Storage Code 80 


Explanation The instruction causes a BASIC program t 
stop. It is identical to STOP except that it does not caus 
the Oric-l to display a message showing at which line th 
program halted. 


Example Normally used at the end of a program, or t 
cause the program to stop if erroneous information is_ INPUL 


900 PRINT “Play again (Y/N) ?" 
910 GET RS:IF RS="Y" THEN 100 ELSE END 


References STOP 
EXP 
Format A function used as part of a numeric expres: 


sion, in the form 
EXP (x) 
where x iS a numeric expression 
Storage Code El 
Explanation It returns the value e* where e is the Nap- 
ierian constant or exponential. The function LN is comple- 


mentary to EXP, and the two can be used as log and antilog, 


Example Given a number x, assume we wish to find its 
fifth root a, such that 


a> =x 
Now LN(a?) = LN(x) 
Or 5*LN(a) = LN(x) 
that is LN(a) = LN(x) / 5 
so a = EXP(LN(x)/5) 


A program using this theory appears in the example to LN 


References LN 
EXPLODE 
Format An instruction of the form 


EXPLODE 
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Storage Code A4 
Explanation Produces a predefined sound of an explosion. 


Example Used in games or as an effective audible 
indication of an invalid entry, eg. 


100 PRINT “ENTER CHOICE (0-7)" 

110 GET C$:C=ASC(C$)-48 

120 IF C<0O OR C>7 THEN EXPLODE:PRINT "O 
UT OF RANGE: RE-":GOTO 100 


References ZAP 
FALSE 
Format A constant of the form 
FALSE 
Storage Code FO 
Explanation FALSE gives the value of 0, since this is how 


the Oric-l represents this logical value. 
Example The use of this constant is limited to aiding 
a program's readability, since it may always be replaced by 


zero. For example if we set up a variable OVER to indicate 
whether a variable X was larger than 99, thus 


106 OVER=(X>99) 


then we could subsequently use OVER in an IF statement as 
follows 


250 IF OVER = 0 THEN 500 ELSE END 
but using FALSE makes the sense clearer 
250 IF OVER=FALSE THEN 500 ELSE END 
In fact using the prefix keyword NOT is best of all 


250 IF NOT OVER THEN 500 ELSE END 


References TRUE 
FILL 
Format A HIRES instruction of the form 
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FILL nl,n2,n3 
where nl, n2 and n3 are integer expressions in the ranges 


1l<= nl <=200 


l<= n2 <=40 
and O0<= n3 <=127 
Storage Code AF 
Explanation The HIRES screen consists of a grid of 200 


240 pixels. It is stored in memory as 200 blocks of | 
bytes, each byte mapping onto six pixels. These six-by{ 
blocks may be referred to as 'cells', so that it is said{ 
have 200 lines of 40 cells. The FILL instruction fills 1 
lines of n2 cells with the value n3, starting at the curre 
cursor position. It does not necessarily update the curs 
position correctly. 


Example FILL is often used to insert attribute chara 
ters on the HIRES screen. The following routine plac 
random foreground colour attributes in cell 1 of all line 
and then draws a solid circle to show the colours: 


10 HIRES:PAPER 0 

20 FOR Y=0 TO 199 

30 CURSET 0,Y,0:FILL 1,1,INT(RND(1)*7+1) 
40 NEXT 

50 FOR R=l TO 99:CIRCLE R,1:NEXT R 


References HIRES, Section 3 
FN 
Pormat A reference to a previously defined functiao 


used in a numeric expression in the form 
FN v(x) 


where v is a real numeric data-name and x is a numer 
expression. 


Storage Code C4 


Explanation FN v may only be used in an expression if 
previous DEF FN v instruction has been executed. String 

integer function names are not permitted. The value of ft 
expression x above is inserted into the function definitit 
and the resulting value is returned by FN v. 


Example See DEF 
References DEF 
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FOR 


Format An instruction having one of two possible 
forms 


(1) FOR v=xl TO x2 STEP x3 
(11) FOR v=xl TO x2 


where v is a real numeric data-name and xl, x2, and x3 are 
humeric expressions. 


Storage Code 8D 


Explanation Instruction format (i) causes all statements 
up to the accompanying NEXT instruction to be executed 
tepetitively for values of variable v from xl to x2 in steps 
of x3. Instruction format (ii) is used when the step is l. 
The intermediate statements will be executed at least once, 
even in form (ii) when xl>xz2. 


Example There are two usual methods of implementing 
program loops on the Oric-1, the FOR/NEXT and the REPEAT/ 
UNTIL. The former is used when there is a need for a regu- 
larly incrementing counter. For example the following rou- 
tine sorts a set of words previously stored in array W$ 
(dimension 20) into alphabetical order 


100 FOR £=19 TO 1 STEP -1l 

110 FOR P=l1 TO E 

120 IF WS(P)>WS(P+1) THEN XS=WS(P):WS(P)= 
WS (P+1):WS (P+1)=x$ 


130 NEXT P 
140 NEXT E 
References DIM, NEXT, REPEAT, STEP, TO 
FRE 
Format A function used as part of a numeric expres- 


sion in two possible forms 
(i) FRE(0) 
(ii) FRE("") 
Storage Code DA 


Explanation Format (i) returns the amount of unused mem- 
ory space in bytes, while the inclusion of format (ii) in an 
expression forces ‘garbage collection’ in the data area ie. 
the removal of redundant data items. 
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Example (i) FRE(0) is rarely used in a progral 
instruction: its common use is in an immediate mode PRINT t 
show how much memory is left, eg. PRINT FRE(0) 


(ii) FRE("") may be used in the middle of a complex progra 
where memory is getting full, and several items of data have 
become redundant. It is normally used in a dummy expressio 
eg. XX=FRE("") where XX is not otherwise needed. 


GET 

Format An instruction of the form 
GET v 

where v is a string data-name 

Storage Code BE 


Explanation Once the instruction is executed the first 
key to be pressed has its value placed in v. Only on 
character is transferred and the RETURN key does not need tt 
be pressed. In comparison with a similar construct, the 
function KEYS, GET waits until a key is pressed befor 
proceeding to the next instruction. 


Example GET may be used whenever a Single key entry 
input is required. A common uSe is situations when the 
program user needs to read some information from the scree 
and then indicate when he is ready for the next set of 
results. This may be provided for in the following way: 


PRINT "Press any key to continue":GET A$:CLS 


Here the value of A$, the key pressed, is unimportant - it 
is the waiting function of GET that is being utilised. 


References ASC, KEYS 
GOSUB 
Format An instruction of the form 


GOSUB n 
where n is an integer expression. 
Storage Code 9B 


Explanation GOSUB is the Oric-l's subroutine call inst: 
ruction. It causes the program to jump to the line numbe 
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given by n, and to follow the instructions there until a 
RETURN is found, at which point it returns to the inst- 
ruction following the original GOSUB. The return address is 
in fact held on the memory stack (page 1 of memory). Nested 
subroutines may be used - subroutines can call other sub- 
routines - since successive return addresses are simply 
piled onto the stack. The POP instruction can be used to 
remove an address from the stack. If GOSUB refers to a line 
number which does not exist then an ‘Undefined statement 
error' results. 


Example Subroutines are used when a section of inst- 
ructions needs to be executed several times from Gifferent 
parts of a program. They also aid considerably the clarity 
and structure of a program if used effectively. Note that 
an instruction such as GOSUB MENU is perfectly valid provi- 
ding MENU has been assigned the appropriate line-number 
value: this again aids clarity. The following instructions 
include a subroutine that might be used in a program where 
questions are being posed 


10 YES=500: ES=CHRS(27):DS=CHRS (4) 
lines... 

155 GOSUB YES 

lines... 

500 CLS:PAPER4: INK7:PING 

510 FOR L=l TO 11:PRINT:NEXT 
520:PRINT SPC(10);DS$;ES;"NCorrect":D$ 
530 WAIT 500:RETURN 


References RETURN, POP 
GOTO 
Format An instruction of the form 


GOTO n 
where n is an integer expression 
Storage Code 97 


Explanation The instruction causes a program jump to the 
line number given by n. If GOTO refers to a line number 
which does not exist then an ‘Undefined statement error' 
results. If GOTO is the first instruction in either the 
THEN or ELSE clause of an IF statement, then the keyword 
GOTO may be omitted. 


Example The programmer is advised to be extremely 
circumspect in his use of this instruction: a program with 
several GOTO's can be very difficult to follow. It may be 
used successfully when testing user inputs eg. 
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100 PRINT “YOUR CHOICE (Y/N)" 
110 GET CS$:IF CS<>"Y" AND CS$<>"N" THEN 
PRINT “INVALID - REENTER":GOTO 100 


but even this could be programmed more tidily: 


100 OK=FALSE 
102 REPEAT 


104 : PRINT “YOUR CHOICE (Y/N)" 
106 : GET C$:0OK=(C$="Y" OR CS$="N") 
108 : IF NOT OK THEN PRINT “INVALID —- REENTER' 
110 UNTIL OK 
References IF 
GRAB 
Pormat An instruction of the form 
GRAB 
Storage Code OF 
Explanation In order to provide a HIRES mode the Oric-l 


allocates a considerable amount of memory for the display, 
The GRAB instruction reclaims this for use by the BASIC 
program. The memory area reclaimed is bytes #9800 to #8400 
on a 48K Oric-l and bytes #1800 to #3400 on a 16K Oric-l, 
RELEASE is the reverse of GRAB. 


Example Use GRAB before entering a substantial program 
which does not employ HIRES mode, especially if using a 16 
machine. 


References HIRES, RELEASE 
HEXS 
Pormat A function used as part of a string expres- 


sion, in the form 
HEX$ (n) 
where n is a positive integer expression between 0 and 65535 


Storage Code DC 


Explanation HEX$ converts the value of nto a string 


representing a hexadecimal value, commencing with the hash 
sign (#). Spaces are not included in the string, so it may 
be of length 1 to 4 (zero is just "H"). The hexadecimal 
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number system consists of sixteen digits: 
“0123 456789ABCODEF 


the letters A to F representing 10 to 15 respectively. A 
hexadecimal number has its digit positions representing 
powers of 16 eg. 


HOSA = (8 x 162) + (9 x» 161) + (10 x 1) 
= 2202 decimal 


HEX$ may not be used with negative or fractional expres- 
sions. 


Example The following program converts a decimal int- 
eger into a four digit hex integer, without the hash sign. 


10 INPUT "DECIMAL NUMBER:";D 

20 HS=HEXS(D):L=LEN(HS) 

30 H$=RIGHTS(HS,L-1) 

40 HS=RIGHTS ("0000"+HS,4) 

50 PRINT "HEX EQUIVALENT IS ";HS$ 


References Section 4.1 

HIMEM 

Format An instruction of the form 
HIMEM n 


where n is an integer expression 
Storage Code 9E 


Explanation The memory area available for user programs 
on the 48K Oric-l is #0500 to #H97FF (#8000 less on the 16K). 
The HIMEM instruction is used to lower the top limit of this 
area sO that the user may place machine-code routines above 
it. HIMEM remains set until the machine is switched off - 
even RESET does not affect it. NEW only clears the area up 
to HIMEM, so machine-code routines are safe. The HIMEM 
value is stored in a pair of bytes in page 0, bytes HOOA2 
and HOOA3. 


Example Occasionally the Oric~-l may not set itself 
properly when switched on and this may cause problems when 
storing large amounts of data. To be safe it is best to set 
the HIMEM value at the start of any large program: 


HIMEM #97FF 
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HIRES 


Format An instruction of the form 
HIRES 
Storage Code A2 


Explanation Causes the normal top 24 lines of the low- 
resolution screen to be converted to a black background grid 
of 240 x 200 pixels, leaving 3 lines for normal system 
messages at the base of the screen. The RELEASE command may 
need to be issued before HIRES will operate: if a GRAB 
command has previously been executed then the HIRES memory 
area will not be available. HIRES uses memory locations 
KAOQ00 to BBFDF, and because it iS memory-mapped, any char- 
acter placed in this area will appear on the screen. A 
character is interpreted either as an attribute (if its 
second and third bits are zero) or a pattern (using the last 
Six bits). Several keywords may only be used in HIRES mode: 
these are CHAR, CIRCLE, CURMOV, CURSET, DRAW, FILL, PATTERN 
and POINT. 


Example The following routine demonstrates the diff- 
erence between patterns and attributes placed in the HIRES 
memory area 

10 HIRES 

20 FOR C=l1 TO 10:READ D:POKE 45450+C,D:NEXT C 

30 (DATA 227520742) 722 elope Lyte iy 2a gl 27 


The numbers 15 and 22 are attributes, while 115 and 127 are 
patterns (in binary 01110011 and 01111111 respectively). 


References CHAR, CIRCLE, CURMOV, CURSET, DRAW, FILL, 
PATTERN, POINT, Section 3 


IF 
Format An instruction of two possible forms 
(i) IF c THEN al ELSE a2 
and (ii) IF c THEN al 


where c is a set of conditions and al and a2 are 1ists of 
actions, separated by colons. 


Storage Code 99 


Explanation Format (i) causes action list al to be exe- 
cuted if condition c is true and action list a2 if c is 
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false. Format (ii) causes action list al to be executed if 
cis true, otherwise there is no action. The condition part 
of the instruction can consist of several conditions joined 
by the operators AND and OR, or prefixed by NOT. A cond- 
ition usually consists of some relation involving the rel- 
ational operators: 


= equal <> not equal 
< less than <= less than or equal 
>» greater than >= greater than or equal 


Ina complex condition the relational operators have higher 
priority than the connectors, which are evaluated in the 
order NOT, AND, OR. 


Anumeric expression may replace the condition part of the 
IF instruction: if it is zero the ELSE list will be exe- 
cuted, 1f non-zero the THEN list will be executed. 


Aspecial case of the IF instruction is when a GOTO state- 
Ment would appear immediately after THEN or ELSE: in this 
Situation the keyword GOTO may be omitted. 


Example To check that a string S$ entered by a user 
consists entirely of upper-case letters the following is 
used 


90 OK=TRUE 

100 FOR C=l TO LEN(S$) 

110 MS$=MIDS$(SS$,C,1) 

120 IF MS$>"Z" OR MS<"A" THEN OK=FALSE 

130 NEXT C 

140 IF NOT OK THEN PRINT "** FAULTY INPUT" 


References AND, ELSE, NOT, OR, THEN 

INK 

Format An instruction of the form 
INK n 


where n is an integer expression between 0 and 7 
Storage Code B2 


Explanation INK sets the foreground or ‘writing’. colour 
of the screen, according to the value of nas follows 


0 = black 1 = red 

2 = green 3 = yellow 
4 = blue 5 = magenta 
6 = cyan 7 = white 
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It takes effect immediately, rather than requiring CLS 
first. Location 8026C contains the INK value. 


Example INK 1 sets the foreground colour to red. 
References Section 3 

INPUT 

Format An instruction of two possible formats: 


(i) INPUT: "tC" 2 Vl V2 e Ks 
and (ii) INPUT vl,v2,.. 


where t is a string of characters and vl,v2 etc are variable 
names. 


Storage Code 92 


Explanation The INPUT instruction causes the execution of 
a program to be suspended while the user enters value(s) 
from the keyboard which are assigned to the data-name(s) in 
the INPUT statement. The value(s) must be terminated by 
RETURN before the statement will proceed. Format (ti) 
prompts the user by displaying "? ", while format (i) out- 
puts the string t followed by "? ". If there is more than 
one data-name in the INPUT list and insufficient values are 
entered from the keyboard, the prompt "?? " appears. The 
user may enter several pieces of data at a time by separa- 
ting them with commas and then pressing RETURN. The INPUT 
may be interrupted by pressing CTRL C to stop the program. 


Example Normally used when keyboard entries of more 
than one key depression are needed (otherwise GET or KEY$ 
are best). The following example enters student names and 
marks into two lists: 


200 c=l 
210 REPEAT 
220 : PRINT "STUDENT NO." C 
230 : INPUT “NAME & MARK:";NS(C),M(C) 
240 : PRINT 
250 3 C=zCt+i 
260 UNTIL C>20 
References GET 
INT 
Pormat A function used as part of a numeric expres- 
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sion, in the form 

INT (x) 
where x 1S a numeric expression 
Storage Code D7 


Explanation INT is used to extract the whole number part 
of the expression x. It truncates rather than rounds, ie. 
the fractional part is ignored. 


Example P INT is often used in conjunction with the 
random number function RND, since integers are generally 
needed for such purposes as screen coordinates, attributes 
and the like. The following example places randomly coloured 
Squares on the low resolution screen, ending when the S key 
is pressed 


10 TEXT:PAPER 7:CLS 

20 REPEAT 

30 X=INT(RND(1)*38)+1:Y=INT(RND(1) 
*26)+1:C=INT(RND(1) *8)+16 

40 PLOT xX,Y,C 

50 UNTIL KEYS$="S" 

60 PAPER 7:INK 0 


References RND 
KEYS 
Format A function used as part of a string expression 


in the form 
KEYS 
Storage Code Fl 


Explanation KEY$ contains the value of the key currently 
being pressed when the instruction containing KEY$ is exe- 
cuted. If no key is being pressed then KEYS contains the 
null string. 


Example To illustrate how the KEYS function works the 
instructions below print out its value, surrounded by 
quotes. S stops the routine 


10 REPEAT 

20 WAIT 30 

30 PRINT """ KEYS "'" 
40 UNTIL KEY$="S" 


The UNTIL condition in the loop also illustrates a common 
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use of KEYS - to accept a value to break out of a loop. 


References GET 
LEFTS 
Format A function used as part of a string expres- 


sion in the form 
LEFTS (s,n) 


where s is a string expression and nis an integer expres- 
sion 


Storage Code F4 


Explanation LEFT$ extracts the n-character substring from 
the left-hand end of string s. If n exceeds the length of 
the string then the value of the whole string is returned, 
while if nis zero the null string is returned 


Example If we have a string N$ = “FRED BLOGGS" then 
"FRED" may be extracted by LEFTS(NS,4). 

References LEN 

LEN 

Format A function used as part of a numeric expres: 


sion in the form 

LEN(s) 
where s iS a string expression 
Storage Code E9 


Explanation LEN returns the number of characters in the 
string s. A string may be between 0 and 255 characters in 
length. 


Example Since the Oric-l's method of obtaining sub- 
strings is by means of the functions LEFT$, RIGHTS and MID§, 
the length of strings is often required so that the number 
of characters to the right or left may be calculated. The 
following instructions search for the occurrence of the word 
"AND" in a string T$ 


100 FOR P=l1 TO LEN(TS$)-2 
110 IF MIDS(TS,P,3)="AND" THEN 140 
120 NEXT P 
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130 PRINT "**NOT FOUND":END 
140 PRINT "At position ";P 


References LEFT$, MID$, RIGHTS 
LET 
Format An instruction of two possible formats: 


(1) LET v = x 
and (ili) v = x 
where v iS a data-name and x and expression 
Storage Code 96 


Explanation Both formats have the same effect: the value 
of expression x is assigned to data-name v. This assignment 
statement can either be used for strings or numeric values. 
Numeric expressions consist of constants or data-names link- 
ed by arithmetic operators (listed below in their order of 
evaluation) 


brackets ( ) 
exponentiation : 

multiplication & division * / 
addition & subtraction + - 


and even relational operators or Booleans can be used (fol- 
lowing on in priority order) 


relations (eg. >=) 


NOT 
AND 
OR 


String expressions consist of character variables or con- 
stants possibly linked by +, the concatenation operator. 
Functions may also appear in both string and numeric expres- 
sions 


Example Sample numeric assignment: 
T=(A+B*PI)/SQR(C2) 
Sample string assignment: 
CCS=LEFTS (K$,3)+" ING. 
Note that the final “ may be omitted from any instruction if 


it would be the last character. 
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References AND, NOT, OR, Section 1.2 


LIST 


Format A command of four possible formats 


(1) LIST 
(ii) LIST n 
(iii) LIST n-m 
(iv) LIST n- 


where n and m are integers 
Storage Code BC 


Explanation LIST displays on the screen all or part of 
the statements of the current BASIC program in 1line-numbe 
sequence. Pressing the space bar in the middle of a listing 
suspends it, and it is restarted by pressing the bar again, 
CTRL C stops a listing. Format (i) lists an entire progra 
from beginning to end. Format (ii) lists a single line, 
numbered n. Format (iii) lists lines n to m inclusive; ani 
format (iv) lists from line n to the end. The Oric-l give 
the 'Ready' message when the listing is complete. LIST may, 
if required, be used as an instruction within a program. 


Example LIST 100-200 


It is often useful to press CTRL L before issuing the LIS! 
command as this clears the screen. 


References LLIST 
LLIST 
Format A command of four possible formats 


(i) LLIST 
(ii) LLIST n 
(iii) LLIST n-m 
(iv) LLIST n- 


where n and m are integers 
Storage Code 8E 


Explanation LLIST prints all or part of the statements of 
the current BASIC program in line-number sequence. It is 
the printer equivalent of LIST. If the Oric MCP-40 is use 
then LLIST will only work if the printer is in text mode 
Occasionally spurious characters can appear on LLIST output, 
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eaused by keyboard interrupts: this is avoided by CALL #E6CA 
before output and CALL #E804 afterwards. 


Example LLIST 500- 

References LIST, Appendix 4 

LN 

Format A function used as part of a numeric expres- 


sion in the form 

LN (x) 
where x is a numeric expression. 
Storage Code EO 


Explanation LN returns the Napierian logarithm of the 
value x, ie. loggx- It is complementary to the EXP funct- 


lon since if a=log,b then b=e%, 


Example The relationship between EXP and LN may often be 
wed to calculate roots of numbers. The following routine 
calculates and prints cube roots of numbers input 


10 INPUT "“NUMBER:";N 
20 PRINT "CUBE ROOT OF "N" IS “EXP(LN(N)/3) 


References EXP, LOG 
LOG 
Format A function used as part of a numeric expres- 


sion in the form 
LOG (x) 


where x is a numeric expression. 


Storage Code E8 

Explanation LOG returns the base ten logarithm of the 
value x, ie. log,gx. It in effect gives the number which 
when used as a power of 10 gives the value x. 

Example SS=LOG(P+Q) 


heferences EXP, LN 
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LORES 
Pormat An instruction of the form 


LORES b 
where b is 0 or l. 


Storage Code 89 


Explanation LORES invokes low-resolution mode, with 2] 
lines of 40 characters. If LORES 0 is used, characters 
appear in their normal form, whereas LORES 1 invokes the 
alternate character set (by default, Prestel-type graphic 
symbols). The screen background colour is automatically set 
to black. Any PRINT instructions cause the screen to scroll 
up as a whole. The PLOT instruction is normally used to 
place results on the low resolution screen. Any plotted 
characters are interpreted as ASCII values if they exceed 
31, and attributes if they are 31 or below (second and third 
bits both zero). 


Example The following instructions display the stan- 
dard character set in LORES 0 and then switch to LORES 1 to 
display the corresponding alternate characters 


10 FOR B=0 TO 1:LORES B 
20 FOR C=32 TO 127 

30 Y=INT(C/16):X=C-16*Y 
40 PLOT 10+X,Y,C 

50 NEXT C 

60 WAIT 300 

70 NEXT B:TEXT:CLS 


References PLOT, PRINT, TEXT, Section 3 


LPRINT 
Format An instruction of the form 
LPRINT pl 


where pl is a print list, consisting of expressions possibly 
separated by commas or semicolons. 


Storage Code 8F 


Explanation LPRINT prints the values of items from the 
print list. It is the printer equivalent of PRINT and uses 
the same conventions. The width of a printer page is normal: 
ly greater than the screen, and LPRINT may take advantage of 
this. Address #0031 holds the number of characters per 
printed line and this may be changed by POKEing a new value, 
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We a value eleven more than the width required. With the 
(ric MCP-40, LPRINT can be used to send graphical commands 
as shown in Appendix 4. Occasionally spurious characters 
(an appear on LPRINT output, caused by keyboard interrupts: 
this is avoided by CALL BE6CA before output and CALL KE804 
afterwards. 


Example LPRINT may be used with the different control 
codes particular to the printer being used - note that ESC 
characters from the Oric-l will obviously not produce the 
same effect on the printer as they would on the Oric-l 
screen. The following command uses the fact that ASCII 
code 14 turns on the enlarged character mode of a Epson 
mtrix printer: 


LPRINT “NORMAL"+CHRS$(14)+" ENLARGED" 


giving the result: 
NORMALE NL ARGED 


heferences CHR$, PRINT, Appendix 4 
MIDS 
format A function used as part of a string expres- 


sion in the form 
MID$(s,n,m) 


where s is a string expression and n and m are integer 
expressions 


Storage Code F6 


Explanation MID$ extracts the substring of length m from 
the string s, starting at character position n. If no such 
character position exists in the string then the result is 
tll, Similarly if m is larger than the remaining number of 
characters then MID$ just results in the characters from 
position n to the end of the string. 


Bxample The following routine shows how MIDS works 
with different values of N and M. Enter RETURN after each 
i, Mpair, or S to stop. 


10 S$="GIRAFFE" 

20 REPEAT 

30 :INPUT "N,M";N,M 

40 :PRINT “.";MIDS(SS$,N,M);"." 
50 :GET K$ 

60 UNTIL KS$="S" 
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MID$ appears in many of the References below. A furthe 
example is now shown, using T$ as a data table containin 
three-character abbreviations of the days of the week. Lin 
100 converts a day number D (1 - 7) into a day abbreviatio, 


10 TS$="SUNMONTUEWEDTHUFRISAT" 


100 D$=MID$(T$,3*D-2,3) 


References CHAR, LEN 
MUSIC 
Format An instruction of the form 


MUSIC ¢c,0,n,Vv 


where c represents channel (1-3), 0 is octave (0-6), nis 
note (1-12) and v is volume (0-15). 


Storage Code A8 


Explanation MUSIC defines a musical sound, in contrast t 
SOUND which is normally used for non-musical sounds. The 
Oric-l has three tone channels and any one can be utilise 
by MUSIC. Seven octaves of notes are available, from 0 (th 
lowest) to 6 (the highest), and there are twelve notes ir 
each octave, numbered 1 - 12: 


C, C sharp, D, D sharp, E, F, F sharp, G, G sharp, 
A, A sharp, B 


Volume varies between 0 and 15: 0 allows the volume to be 
controlled by PLAY, while 1 to 15 represent low to high 
volumes. 


MUSIC usually is found with the PLAY instruction: PLAY can 
define differently shaped sounds and can play several tone 
channels together which have been previously defined by 
several MUSIC instructions (and SOUND instructions if re- 
quired). Alternatively, PLAY may be used to enable a tone 
channel and then MUSIC sounds the notes. 


Example The following program plays a few bars of 
Greensleeves. The notes are first transcribed into numbers 
and these are then placed in a DATA statement as_ shown, 
together with the lengths of the notes. 


1@ PLAY 2,0,1,200:READ N,L 

2@ REPEAT 

38 O=3:1F N12 THEN O=4:N=N-12 
48 MUSIC 2,0;N;4 

98 WAIT L228 
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68 READ N,L 

78 UNTIL N=@ 

8@ PLAY 8,8,0,0 

38 STOP 

10@ DATA 18,2,13,4,15,2,17,;3,19,1,17,2,1 
9,4,12,2,8,3,10,1,12,2 

118 DATA 13,4,18,2,18,3,8,1,18,2,12,4,8, 
2)5,4,10,2,13,4,15,;2,17,3;1 

3,1,17,2 

128 DATA 15,4,12,2,8,2,10,2,12,2,13,3,12 
»1,180,2,9,3,7,1,9,2,180,6, 18 

14,18,2 

138 DATA @,@ 


line 10 enables tone channel 2 and line 40 plays the notes. 
Line 80 stops the tune at the end. Notes span two octaves - 
numbers above 12 indicate the second octave and they are 
adjusted accordingly in line 30 


References SOUND, PLAY, WAIT 

NEW 

Format An instruction of the form 
NEW 


Storage Code cl 

Explanation NEW removes the current BASIC program from 
Memory and also sets all string variables to null and num- 
eric variables to zero. The current state of the Oric-l, in 


terms of whether it is in upper-case or lower-case, whether 
the key-click is on, etc is preserved. 


NEXT 
Format An instruction of two possible forms 
(i) NEXT 
or (ii) NEXT v 
where v is a real data-name 
Storage Code 90 
Explanation NEXT must always be used with an accompanying 
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FOR instruction. It marks the end of a FOR loop, and the 
data-name v, if used, must be the same as in the corres- 
ponding FOR. Format (i) should only be used when there is 
no ambiguity as to which FOR the NEXT matches. 


Example Often programs use FOR - NEXT loops near the 
start of a program to set up arrays. This may often take 
time, and it is more user-friendly to indicate to the user 
that something is happening, rather than having a static 
screen. This may be done by having a message such as 


Initialising... 


with an extra dot added every so often. For example, if a 
loop goes from 1 to 1000, print a dot every 200th loop: 


100 PRINT "“"Initialising"; 
110 FOR J=1 TO 1000 
120 IF J=200*INT(J/200) THEN PRINT "."; 


@®eeeseese#e# 


300 NEXT J 
References FOR, UNTIL 
NOT 
Format A preposition keyword with two properties, 


Firstly it may be used in front of a logical value, for 
example in an IF statement: 


IF NOT c THEN action 


where c is a logical expression. Secondly it may be used as 
part of a numeric expression: 


NOT n 
where n is an integer expression. 
Storage Code CA 


Explanation In the first form above, NOT is used to 
negate a condition, in the same way that the word is used in 
normal English. The second form is more complex and acts at 
the binary level. NOT inverts all the binary digits in the 
integer which it prefixes, so that zeroes change to ones, 
and vice versa. This gives what is known as the “one's 
complement" of the integer. In fact, NOT n gives the value 
-(n+l). The Oric-1 makes no distinction between the logical 
and arithmetic uses of NOT: the value 'true' is stored as 
11111111 (decimal -1) and 'false' as 00000000 (decimal 0), 
so both operations have the same effect in memory. 
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ample (i) If the programmer wants to print an error 
lessage when a value XX is not positive, he may achieve this 
lh two ways 

tither IF XX<=0 THEN PRINT **** ERROR ***" 

or IF NOT (XX>0) THEN PRINT "*** ERROR ***" 

It is a matter of opinion as to which is the more easily 
derstood. Notice that brackets must appear around the 
expression prefixed by NOT, since NOT has a higher priority 
0&@& evaluation than > (see Section 1.3). 


(ii) If the clause NOT N appears in an arithmetic expres- 
tion, with N equalling 50, then the result is -5l, as shown: 


N = 50 
or in binary = 00110010 
so NOT N = 11001101 inverting the digits 


Now 11001101 is in two's complement form 
so it is - (00110011) 


which in decimal is - 51 


Cmplementing is further explained in Section 4.3. 


heferences IF 
ON 
lormat An instruction of two possible forms: 


(i) ON m GOTO nl,n2,... 
(ii) ON m GOSUB nl,n2,... 


where m is an integer expression and nl,n2,... is a list of 
line-numbers separated by commas. 


Storage Code B4 


Explanation The ON instruction is known as a computed 
jump. Format (i) causes a jump to the mth line number in 
the list. If there is no such line-number in the list, 
program control is passed to the instruction following the 
WW statement, but negative values of m cause an ‘Illegal 
Qlantity Error’. Format (ii) gives an identical effect, but 
the Oric-l expects subroutines at the specified line num- 
bers, and on encountering RETURN it comes back to the line 
following the ON instruction. 
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Example ON is commonly used in a program when a menu 
of choices is made available to the program user. The user 
enters his choice as an integer and this is used to specify 
the routine to call. . 


90 PRINT “*0) END*” 

100 PRINT "1) ADD A NEW RECORD" 

110 PRINT “2) CHANGE A RECORD" 

120 PRINT "3) DELETE A RECORD" 

130 PRINT:INPUT "Choice (1-3)°3;M 

140 M=M AND 3: ON M GOSUB 1200,1500,2000 
150 GOSUB 3000 


The first instruction in line 140 ensures that M is in the 
range 0 to 3. 


References GOSUB, GOTO 
OR 
Format A connector keyword with two properties, 


Firstly it may be used to link two conditions, for example 
in an IF statement: 


IF cl OR c2 THEN action 


where cl and c2 are conditions. Secondly it may be used as 
a binary operation in a numeric expression in the following 
manner: 


xl OR x2 
where xl and x2 are numeric expressions. 
Storage Code D2 


Explanation When used to form a combined condition fron 
two other conditions, OR requires one or both conditions to 
be true, as the following table illustrates 


Palse OR False = False 
False OR True = True 
True OR False = True 
True OR True = True 


When used as a binary operation, OR compares the binary 
digits in the numbers it is joining, and for each pair of 
bits it returns a 0 or 1 value, according to the rules: 


0 OR 0 = 0 
0 OR1=1 
1 OR 0 = 1 
1 OR1=1 
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The obvious similarity results from the fact that the Oric-l 
stores True as binary l‘'s and False as binary 0's. 


Example (i) Assume a subroutine at line 2000 is to be 
called if either X or Y are zero: 


IF (X=0) OR (Y=0) THEN GOSUB 2000 


(ii) OR used as a binary operator is a beneficial tool when 
handling binary flags, that is, bits used to indicate cond- 
itions. For example, the Oric-l's flag showing whether it 
is in CAPS mode is the first bit of location H020C. To 
ensure CAPS mode is in use the following instruction is 
used : 


POKE 524, (PEEK(524) OR 128) 


This puts the machine in CAPS mode, whether or not it is 
already in CAPS. It works because 128 in binary is 
10000000, and whether the first bit of address 524 is 0 or 
l, 1 always results from the OR operation. 


References IF, PEEK, POKE 

PAPER 

Format An instruction of the form 
PAPER n 


where n 1S an integer expression between 0 and 7. 
Storage Code Bl 


Explanation The instruction works in high or low resol- 
ution graphic modes to set the background colour of the 
screen according to the value of n, as follows 


black 
red 
green 
yellow 
blue 
magenta 
cyan 
white 


SAU BW NF © 


PAPER takes effect immediately it is executed - the screen 
does not need to be cleared first. Its effect on the screen 
display area is to place an attribute byte determining the 
background colour at the first column position of all screen 
lines. 
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Example The following instructions illustrate PAPER 
colours 

10 FOR C=0 TO 7 

20 :CLS:PAPER C:INK ABS(C-7) 

30 :PRINT SPC(15);"PAPER ";C 

40 :WAIT 100 


50 NEXT 
References Section 3 
PATTERN 
Format A HIRES instruction of the form 
PATTERN n 


where n is an integer expression between 0 and 255. 
Storage Code AE 


Explanation The CIRCLE and DRAW instructions normally use 
solid lines on the HIRES screen. However the lines can be 
defined to have different levels of solidity using PATTERN, 
giving for example dotted or dashed lines. The pattern of 
lines is determined by the binary layout of the integer in 
the PATTERN instruction. 


Example Lines with long dashes may be achieved by 
PATTERN 231 since 231 in binary is 11100111. The followin 
routine shows the effect of any given pattern value: 


10 REPEAT 

20 :HIRES 

30 :INPUT “Pattern value "“;P 

40 :PATTERN P 

50 :CURMOV 0,100,0:DRAW 235,0,1 
60 :WAIT 100 

70 UNTIL P=0 


References CIRCLE, DRAW, Section 3 
PEEK 
Format A function used as part of a numeric expres: 


sion in the form 

PEEK (n) 
where n is an integer expression. 
Storage Code E6 
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Explanation The PEEK function returns the value held in 
the memory location n. Since a location consists of eight 
bits, the value is between binary 00000000 and 11111111 ie. 
0 and 255. Valid locations are 0 to 65535. 


Example PEEK is used extensively in Sections 3, 4 and 
5 to examine memory contents. It is interesting, for exam- 
ple, to explore ROM addresses, namely #C000 and HFFFF. The 
following program accepts a string of up to five characters 
and then searches the ROM to see whether it contains these 
characters 


10 INPUT “String to be found ";S$ 

15 LS=LEN(SS$) 

20 FOR J=0 TO LS-1l 

30 S(J)=ASC(MIDS(S$,J+1,1)) 

40 NEXT 

45 FOR A=49152 TO 65535 

50 C=0:M=TRUE 

S55 IF A=256*INT(A/256) THEN PRINT “Searc 
hing at "3A 

60 REPEAT 

70 :M=(S(C)=PEEK(A+C)) 

80 :C=C+l 

90 UNTIL (NOT M) OR (C>LS-1) 

100 IF M THEN PRINT “Found at "“";A:STOP 
110 NEXT A 

120 PRINT “Not found" 


The program works quite well with starting characters of 
keywords eg. PRI. A full keyword will never be found be- 
cause the Oric-l changes the last character of each keyword, 
as described in Section 5. 


References DEEK, Section 5, Appendices 2 & 3 

P| 

Format A numeric constant of the form 
PI 


Storage Code EE 


Explanation PI always gives the value 3.14159625, as in 
the trigonometric constant. 


Example See the second Example Program at the end of 
Section 3, which uses PI to draw an analogue clock face and 
hands. 


References ATN, COS, SIN, TAN 
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PING 


Format An instruction of the form 
PING 
Storage Code A6 


Explanation Produces a predefined sound of a bell chime, 
The identical sound is achieved by CTRL G. 


Example PING is useful for attracting attention, for 
example when input is required: 


100 PING:PRINT “Press RETURN to continue" 


110 GET KS 
References ZAP 
PLAY 
Format An instruction of the form 


PLAY t,n,m,p 


where t, n, m and p are integer expressions with t: 0-7, n: 
0-7, mz: 1-7 and p: 0-32767 


Storage Code A9 


Explanation PLAY is one of a trio of sound commands, the 
other two being SOUND and MUSIC. The Oric-l has three tone 
channels and three noise channels: PLAY enables combinations 
of these channels and defines the shape and length of the 
sound. Integer t above controls what tone channels are 
switched on and n what noise channels, according to 


value channels on 


one 


and 2 


and 3 
and 3 
, 2 and 3 


“AU & WN F © 


n 
1 
2 
1 
3 
1 
2 
1 


The integer m defines the shape or envelope of the sound as 
shown in the following figure. 
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Envelopes 1 and 2 are finite length sounds while the rest 
are continuous. Finally p in the format of PLAY is the 
period of the sound envelope, that is how long it takes to 
start and end. 


If combinations of channels are required in a sound se- 
quence, MUSIC and/or SOUND instructions are used to define 
the sounds and then PLAY to play them. Alternatively if 
just a single channel is required, then enable the channel 
by PLAY and sound it by MUSIC (usually for musical sounds) 
or SOUND (for non-musical sounds). The length of a sound 
may be controlled by WAIT followed by a PLAY 0,0,0,0 inst- 
ruction which switches off the channels. 


Example It is often difficult to comprehend how the 
sound envelope works. The following routine illustrates the 
seven different envelopes. Press RETURN when the sound has 
gone on long enough for each mode (NB modes 3 - 7 otherwise 
continue ad infinitum) 


10 FOR EM=1 TO 7 

20 CLS: PRINT "ENVELOPE MODE ";EM 
30 MUSIC 1,3,3,0 

40 PLAY 1,0,EM,10000 


50 GET AS 
60 PLAY 0,0,0,0 
70 NEXT EM 
References MUSIC, SOUND, WAIT 
PLOT 
Format A low-resolution instruction of the form 


PLOT X,y,Vv 


where x and y are integer expressions and v is a numeric or 
string expression. 


Storage Code 87 


Explanation PLOT places characters on the low-resolution 
screen, starting at position (x,y). If the expression v is 
numeric then the ASCII character whose code is given by v is 
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placed on the screen. This includes attribute characters 
(see Section 3) and in fact PLOT is an ideal instruction for 
setting screen attributes. If v is a string then the string 
is placed on the screen from (x,y) onwards. The x-coord- 
inate may range between 0 and 38, while the y-coordinate is 
between 0 and 26. Thus there are only 39 columns that may 
be PLOTted: the leftmost column, holding the PAPER attri- 
bute, cannot be accessed by PLOT. PLOT will work in LORES 
and TEXT modes but gives an error if used in HIRES. 


Since the Oric-l screen is memory-mapped, the effect of 
PLOTting a character at a screen position is to place that 
character's ASCII code in a memory location. As,_,the low- 
resolution screen area starts at 48000, and lines are 40 
characters wide then a PLOT position (x,y) corresponds to a 
memory location 48000 + 40(y+l) + x + 1. Notice there is 
allowance for the top line which is reserved for system 
messages (eg. 'Searching"). 


Example The program below draws a simple pyramid in 
TEXT mode and then repetitively plots different colour at- 
tributes onto the lines to give an attractive effect. Hold- 
ing down any key stops the program 


3 TEXT:CLS:PAPERQ: INKO:PRINT CHR$(17) 
10 FOR L=1 TO 15:PRINT: NEXT 

20 FOR L=1 TO 7 

30 3: S=17-L:C=2*L+1l 

40 =: PRINT SPC(S);5 

SO : FOR J=1 TO C:PRINT CHRS$(255) 5 :NEXT 
60 PRINT 

7Q NEXT L 

100 D=1 

110 REPEAT 

1290 C=D 

130 FOR J=1 TO 7 

140 PLOT 1,15+J3,C:C=Cr1l 

1590 IF C=8 THEN C=1 

160 NEXT J 

170 D=D+l1 

180 IF D=8 THEN D=1 

190 UNTIL KEY$<>"" 

200 PRINT CHR#$(17) sPAPER7Z 


References LORES, TEXT, Section 3 
POINT 
Format A HIRES function used as part of a numeric 


expression in the form 


POINT (x,y) 
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where x and y are integer expressions 
Storage Code F3 


Explanation POINT examines the pixel (x,y) on the HIRES 
screen and returns a value 0 if it is in background colour 
ow -l if it is foreground. The x-coordinate may range 
between 0 and 239, and the y-coordinate between 0 and 199. 
The memory area which maps the HIRES screen consists of 200 
line-blocks of 40 addresses. Each of the forty addresses 
per line contains either an attribute or a pattern. If a 
pattern is held then the last six bits of each address 
define the pattern. Thus the POINT function actually ex- 
amines one of these bits, returning 0 if the bit is 0 and -l 
if the bit is l. 


Example In the program below the cursor moves ina 
random way inside a circle and the POINT function is used to 
test when it hits the circle border 


10 HIRES 

20 CURSET 100,100,3 

30 FOR R=95 TO 99:CIRCLE R,1:NEXT 
40 X=10:Y=100 

50 REPEAT 

60 : CURSET X,Y,1l 

70 : X=X+1:Y=Y+5-10*RND(1) 

80 UNTIL POINT(X,Y) 

90 PING 


Notice that in line 80 POINT is used as a logical value, 
utilising the fact that the Oric-l takes -l as True and 0 as 
False. 


References HIRES 
POKE 
Format An instruction of the form 


POKE m,n 
where m and n are integer expressions 
Storage Code B9 


Explanation POKE places the value n in memory location m. 
There are 65536 locations on a 48K Oric-l, so m can vary 
between 0 and 65535. Each location consists of eight binary 
digits, giving a range of binary 00000000 to 11111111 or 
decimal 0 to 255 for value n. POKE instructions have no 
lasting effect on the ROM memory area, even though it is 
overlaid onto RAM. The programmer should beware of using a 
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hexadecimal value for n: there is an error in the ROM which 
will ignore the # sign and place the decimal value in the 
location instead. 


Example POKE has many uses, including the following: 
(i) placing values into the screen memory area for 
display 
(ii) altering system variables 


(iii) entering machine-code routines into memory 


These are illustrated in the References below. A more 
obscure use is for placing the copyright symbol at the 
beginning of a program. The symbol is not available fron 
the keyboard and therefore it cannot be typed into a REK 
statement. To get round this, set up a REM statement as 
line 1 of the program with an asterisk where the copyright 
symbol is required eg. 


1 REM * Linsac 
This line is stored starting at address #0500, and in fact 
the asterisk appears in location #0507. This may be checked 
by 
PRINT CHR$(PEEK(#507)) 
To replace the asterisk by the copyright symbol, enter 
POKE #507,96 


as 96 is the symbol's ASCII code. 


References DOKE, Sections 3 & 5 

POP 

Format An instruction of the form 
POP 


Storage Code 86 


Explanation When the Oric-l executes a subroutine cal] 
(GOSUB) it saves the address to which it will RETURN ina 
memory area known as the stack. The stack operates ona 
‘last in first out' basis, so that as more subroutine retum 
addresses build up with subroutines calling other subrov- 
tines, so the addresses are available for retrieval in the 
right order. Assume the main program calls a subroutineaA 
which in turn calls a subroutine B. In the event of certain 
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tnditions being met it may be required to exit from B 
imediately back to the main program, avoiding a return to 
, The POP instruction enables this to be done as it re- 
ves one return address from the stack. 


ample In the code below the main program invites the 
ser to enter a menu choice. In response to a ‘'l' entry 
ttutine 1000 is invoked, and this later invokes routine 
50. In routine 2050 a counter E indicates how many user 
trors occur, and if this exceeds 5 then the program is to 
terminate. This is done by RETURNing straight back to the 
win program, having POPped the usual return address off the 
tack. 


100 INPUT "Choice 1 - 5 or 0 to end";C 
110 ON C GOSUB 1000,1200,1350,1400,1700 
120 PRINT "**** End of program ****" 
130 STOP 

1000 REM Subroutine for Option 1 

1065 GOSUB 2050 

1070 A=B*C+D 


2050 IF M>5 THEN PRINT “Too many errors": 
POP: RETURN 


2100 RETURN : REM End of routine 2000 


soe o@oee#eee?ees#e 


lf POP were not included at line 2050 the RETURN would go 
back to line 1070, but since it is included, control goes 
bck to the previous return address, line 120. 


References GOSUB, PULL, RETURN 

POS 

format A numeric function of the form 
POS 


‘torage Code DB 


Xplanation POS purports to give the current horizontal 
sition of the cursor, but the author has not been able to 
find an instruction using it which does not give ‘Syntax 
frror'. 
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PRINT 
Format An instruction of the form 
PRINT pl 


where pl is a print list, consisting of expressions possibly 
separated by commas or semicolons. 


Storage Code BA 


Explanation PRINT displays the values of items from the 
print list on the screen, starting at the beginning of the 
line after the current cursor position. When entering tht 
instruction it may be keyed in as just '?' and the Oric:-! 
expands this to the full keyword. PRINT may be used with m 
print list, and this causes a blank line to be displayed, 
If several items are included in the list they may be sep: 
arated by commas or semicolons. Commas cause displayed 
items to appear with three spaces between them, while seni: 
colons produce items immediately following each other. How 
ever numeric values are always PRINTed with one trailin 
space, whether using commas or semicolons. Occasionally 
semicolons may be omitted altogether. If a semicolon ap: 
pears at the end of a PRINT instruction then the next PRIM 
will not do a line-feed - printing continues on the sam 
line. 


Print lists may contain the functions TAB (beware bugs!) ani 
SPC to control spacing. Control or attribute characters ma 
also be produced by using CHRS$ with PRINT. 


Example Examples of common uses of PRINT appear 
throughout this manual as it is the Oric-l's main output 
instruction. Three typical forms are given below: 


(i) PRINT "Student ";S;"scored ";M;“marks" 
(ii) PRINT CHRS$(17) 
(iii) PAPER7:PRINT “COLOUR";CHR$(27);"ARED" 


Example (i) causes a line such as the following to be dis 
played 


Student 63 scored 75 marks 


Notice how the spaces inside the quotes are significant, ani 
how a space is automatically PRINTed after a number 


Example (ii) produces a control code (CTRL Q) to switch off 


the cursor, The same instruction switches it back on, 
Example (iii) produces the attribute ‘foreground red' by Eg 
A. 
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References CHRS$, LPRINT, SPC, TAB 


PULL 
format An instruction of the form 
PULL 
Storage Code 88 
Explanation When the REPEAT - UNTIL construct is used, 


the Oric-l uses a memory area known as the stack to hold the 
start address of the loop. If such loops are nested inside 
others then several addresses build up on the stack, with 
the innermost loop address at the top of the stack. If the 
programmer wishes to exit from a loop to the next outer 
loop, PULL may be used. 


Example PULL works on REPEAT - UNTIL loops in exactly 
the same way as POP works on GOSUB - RETURN, but is less 
weful, since the programmer should be able to avoid the 
instruction completely if good program design is employed. 
See the example for POP 


References POP, REPEAT, UNTIL 
READ 
Format An instruction of the form 


READ list of data-names separated by commas 


Storage Code 95 


Explanation READ is always used in conjunction with DATA 
statements. Values are read in sequence from the DATA lines 
and assigned to the respective data-names in the READ in- 
struction. This provides a method for setting up constant 
or initial values in a program. If a READ instruction 
attempts to read more data than is available in DATA state- 
ments then an ‘Out of data‘ error occurs. The RESTORE 
instruction provides a way of enabling DATA statements to be 
reread. 


Example Common uses of READ - DATA include 

(i) Defining coordinates of patterns to be drawn in HIRES 
(ii) Defining musical sequences 

(iii) Defining character redefinition layouts 


An example of (i) is the following 
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10 HIRES 

20 CURSET 60,20,0 

30 FOR J=l TO 12 

40 READ X,Y 

50 DRAW X,Y,l 

60 NEXT J 

100 DATA 0,100,10,0,0,-45,40,0,0,45,10 
,0,0,-100,-10,0,0,45,-40,0,0,-45,-10,0 


References DATA, RESTORE 

RELEASE 

Format An instruction of the form 
RELEASE 


Storage Code AO 


Explanation The GRAB instruction claims the memory area 
normally holding the HIRES screen for use by a BASIC program 
and data. RELEASE is used to reallocate this to the HIRES 
screen. 


References GRAB, HIRES, Section 3 
REM 
Format An instruction of the form 


REM any sequence of characters 


Storage Code 9D 


Explanation REM stands for remark and is a way of adding 
comments to a program. Typically a REM statement is used to 
annotate a section of a program so that the programmer finds 
the listing easier to understand. Comments may also be 
added at the end of an instruction by using a single quote 
followed by the comment, but beware - this does not always 
work, owing to the vagaries of the Oric-l ROM. The REM 
statement should never be followed by another instruction on 


the same line - the whole line is considered to be a con- 
ment. 
Example 1 REM Program Title: SELF-DESTRUCT 
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REPEAT 


Format An instruction of the form 
REPEAT 
Storage Code 8B 


Explanation Used with the accompanying UNTIL instruction, 
REPEAT is a method of implementing program loops. The 
construct repeats the instructions between the REPEAT and 
UNTIL statements until the condition defined in the UNTIL 
becomes true. There is no automatic incrementing of coun- 
ters, aS in the FOR - NEXT construct: this must be done 
explicitly. The repeat address is stored on the memory 
stack and the PULL instruction may be used to remove one 
such address. 


Example The references below show how REPEAT can be 
used in sophisticated constructs. A simple example uses 
just two instructions, and causes a program to wait until 
any key is pressed 


REPEAT: UNTIL KEY$<>"" 


References FOR, PULL, UNTIL 

RESTORE 

Format An instruction of the form 
RESTORE 


Storage Code 9A 


Explanation Every time a READ instruction reads an item 
of data from a DATA statement, the Oric-l moves an internal 
pointer to indicate the next available data item. Event- 
vually the DATA list is exhausted. The RESTORE instruction 
moves this pointer back to the beginning of the list, so 
that data may be read again. 


Example Occasionally DATA values are initialised by a 
subroutine and the routine may be re-used later in the 
program to reset values. Such a routine has to use a RES- 
TORE instruction since merely invoking the routine will not 
affect the data pointer 


2000 REM Initialise marks array 
2010 RESTORE 

2020 FOR J=l TO 20 

2030 READ M(J) 
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2040 NEXT 
2050 DATA 10,10,20,10,10,30,25,20,10 
29,5,5,5,10, 10, 20, 10, 10, 25, 10 


2060 RETURN 
References DATA, READ 
RETURN 
Format An instruction of the form 
RETURN 
Storage Code 9C 
Explanation RETURN is the last instruction of a subrov 


tine and is used to return control to the instruction fol: 
lowing the GOSUB which called the subroutine. Return 
addresses are held on a memory area known as the stack ani 
the POP statement may be used to remove a return address an 
hence alter the affect of RETURN. 


Example The following subroutine clears the screen, 
sets the foreground black and the background white. 


1000 CLS:PAPER 7: INK 0:RETURN 


References GOSUB, POP 
RIGHTS 
Format A function used as part of a string expres: 


sion, in the form 
RIGHTS (s,n) 


where s is a string expression and n is an integer expres: 
sion 


Storage Code F5 


Explanation RIGHTS extracts the n-character substring 
from the right-hand end of string s. If n exceeds the 
length of the string then the value of the whole string is 
returned, while if n is zero then the null string is ret: 
urned. 


Example The routine below invites the user to enter 


his/her name as forename and surname. It then extracts the 
surname using RIGHTS 
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10 INPUT “PLEASE ENTER YOUR NAME (fore 
name sur- name";N$ 

20 L®=LEN(NS$) :C#L 

30 REPEAT 

40 : C=c-l 

50 UNTIL MIDS$(N$,C,1)="*" * 

60 PRINT “SURNAME: “;RIGHTS(N$,L-C) 


keferences LEN 
RND 
format A function used as part of a numeric expres- 


tion in the form 

RND (n) 
yhere n is an integer expression. 
Storage Code DF 


Ikxplanation RND is Oric-l's random number function. Pro- 
jrams often need some random features, particularly for 
james, and the Oric-l uses mathematical functions to gen- 
trate a sequence of numbers that appear to be totally ran- 
fom. These pseudo-random numbers are between 0 andl, but 
they can easily be scaled up to any required range. When n 
is psitive, RND(n) returns the next pseudo-random number; 
vyhen n is zero the previous number results; while negative n 
jives a seed to the sequence, that is it sets a first value 
to that the sequence can be replicated. 


ixample Random integers in a given range are often 
tequired in programs. To set N to a random integer between 
values P and Q inclusive, the instruction below is used 


N=INT(RND(1) *(Q-P+1))+P 


Inthe following program X is in the range 0 to 38, Y is 0 
to 26 and C is 32 to 127. The effect is to draw random 
characters of the alternate set on the LORES screen 


100 LORES1 

110 REPEAT 

120 X=#INT(RND(1)*39):Y=INT(RND(1)*27): 
C=INT(RND(1) *96)+32 

130 PLOT X,Y,C 

140 UNTIL KEY$="S" 

150 TEXT 


Pressing S causes the program to stop 
References INT 
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RUN 


Format A command of one of the following forms 


(i) RUN 
(ii) RUN n 


where n is an integer expression 
Storage Code 98 


Explanation The command starts the execution of the cur- 
rent BASIC program, from the start if form (1) is used, or 
from line n if form (ii) is used. If no such line exists in 
the program then an ‘Undefined Statement Error' results. 


Example RUN can be used as an instruction withina 
program eg. 


550 PRINT "Press Y to start again":GET X$ 
560 IF X$="Y' THEN RUN 


SCRN 


Format A function used as part of a numeric expres- 
sion in the form 


SCRN(x,y) 
where x and y are integer expressions. 
Storage Code F2 


Explanation SCRN may be used in low-resolution mode to 
return the ASCII value of the character at row y column x, 
Therefore x must be in the range 0 to 38, and y between ) 
and 26, otherwise an ‘Illegal Quantity Error' results. As 
the screen is memory-mapped, SCRN works by examining the 
memory location corresponding to (x,y). 


Example SCRN is useful in “shoot ‘em up”™ type games as 
the following routine illustrates 


10 CLS:PAPER 6:INK 0 

20 DEF FNR(N)=INT(RND(1) *N)4+1 

25 FOR X=l TO 38:PLOT X,0,255:NEXT 
30 FOR J=l TO 40 

40 PLOT FNR(38),FNR(12),255 

50 NEXT J 

55 X=1:Y=26 

60 REPEAT 

65 PLOT x,Y,".":WAIT 10 
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70 X=X+1l:Y=Y-1 

75 HIT=(SCRN(X,Y)=255) 
80 UNTIL HIT 

85 PLOT x,Y,"*" 

90 EXPLODE 


Lines 30 to 50 plot blocks at random positions on the upper 
part of the screen. The REPEAT loop moves an object from 
the bottom left until a block is hit. 


References LORES, PLOT, TEXT 
SGN 
Format A function used as part of a numeric expres- 


sion in the form 

SGN (x) 
where x iS a numeric expression 
Storage Code D6 


Explanation SGN tests the sign of expression x and re- 
turns a value of 1 if x>0, 0 if x=0 and -l if x<0. 


Example The phrase SGN(A-B) is equivalent to the con- 
dition A<B, since if A is less than B, SGN will give -l 
which is taken as 'true' by the Oric-l. 


SHOOT 
Format An instruction of the form 
SHOOT 
Storage Code A3 
Explanation Produces a predefined sound of a shot 
References ZAP 
SIN 
Format A function used as part of a numeric expres- 
sion in the form 
SIN(x) 
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where x is a numeric expression 
Storage Code E3 


Explanation SIN is a trigonometric function which returns 
the sine of the angle whose value in radians is given by x 
above. 


Example SIN and COS are commonly used to refer to 
points on the HIRES screen in polar coordinates, with x » 
r.cos a and y = r.sin a. The routine below draws a circle 
using asterisks 


10 HIRES:PAPER 6:INK 0 

20 FOR A=0 TO 2*PI STEP PI/16 

30 CURSET 50*COS(A)+100,50*SIN(A)+100,0 
40 CHAR 42,0,1 


50 NEXT 
References CoS, PI 
SOUND 
Format An instruction of the form 


SOUND c,p,Vv 


where c, p and v are integer expressions, with c: 1-6, p: 0- 
31 and v: 0-15. 


Storage Code A7 


Explanation The Oric-l sound chip has three tone channels 
and three noise channels, which can be used in various 
combinations. The SOUND instruction defines a sound fron 
tone channel l, 2 or 3 (c = 1 - 3 above) or noise channel l, 
2, or 3 (c = 4 - 6 above), of pitch p and volume v. Several 
SOUND (and possibly MUSIC) commands can define sounds on 
various channels and these can then be actually played using 
the PLAY instruction. Alternatively one channel can be 
enabled using PLAY and the sound produced by SOUND. SOUND 
is normally used for non-musical sounds, since music is more 
easily produced by the MUSIC instruction. 


Example The instructions below produce the sound of 
footsteps 


10 FOR N=l TO 37 

20 PLAY 0,1,1,300 
30 P=(N AND 1)*5+10 
40 SOUND 4,P,5 

50 PLAY 0,0,0,0 

60 WAIT 60 
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70 NEXT N 


The PLAY instruction at line 20 enables noise channel 1 and 
the SOUND instruction at line 40 makes the sound, alter- 
nating between pitch 10 and pitch 15. 


It is straightforward to add graphics to the above to givea 
complete program : 


5S GOSUB 100: GOSUB 300 

10 FOR N=1 TO 37 

20 PLAY O,1,1,300 

3Q0O P=(N AND 1)#5 + 10 

33 GOSUB 200 

40 SOUND 4,P,5 

5O PLAY 0,0,0,90 

60 WAIT 60 

70 NEXT N 

80 WAIT 1000:CLS:PAPER 7: INK O 

90 PRINT CHRS$(20):POKE #26A, 3: STOP 

99 REM Set up walking figure 

100 FOR J=0O TO 15 

110 READ B:POKE 46080+68*ASC ("a") +JI,B 
120 NEXT J 

130 DATA 28, 28, 28,8, 28, 62,62,61,61,60, 
28, 20,50, 34,34,51 

140 RETURN 

199 REM Draw figure at position N 

200 PLOT N,10," a”“sPLOT N,11,".b" 

210 RETURN 

299 REM Draw scene 

300 CLS: PAPER 3S: INK OsPOKE #26A,10:PR 
INT CHR$ (20) 

310 POKE 48520,16:POKE 48480,18 

320 FOR L=0 TO 3 

330 POKE 48040+L #40, 20 

340 NEXT L 

350 POKE 48200,17:POKE 48201,4:POKE 48 
240,17 

360 PLOT 1,4,CHRS$ (9) "012345678901 2345 
67890123456789012345" 

370 RETURN 


References MUSIC, PLAY, WAIT 
SPC 
Format A function used as part of a print list in 
the form 
SPC (n) 


where n is an integer expression. 
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Storage Code cs 


Explanation The inclusion of SPC(n) in a list of items in 
a PRINT instruction causes n spaces to be displayed. 


Example The instruction PRINT SPC(5);A displays the 
value of A at column 6. 

References LPRINT, PRINT 

SQR 

Format A function used as part of a numeric expres- 


sion in the form 
SQOR(x) 


where x iS a positive numeric expression 
Storage Code DE 


Explanation SQR gives the square root of the value of 
expression x. 


Example The example below displays a table of the 
numbers 1 to 20 with their square roots 


10 FOR N=1 TO 20 
20 PRINT SPC(10);N,SQR(N) 
30 NEXT N 


STEP 


Format A keyword providing an optional clause in the 
FOR instruction, in the form 


FOR v=xl TO x2 STEP x3 


where v is a real numeric data-name and xl, x2 and x3 are 
numeric expressions. 


Storage Code CB 


Explanation & Example See FOR 
References FOR 

STOP 

Format An instruction of the form 


76 


STOP 
Storage Code B3 


Explanation STOP terminates execution of the current 
program and causes a ‘Break in ...' message to be displayed, 
followed by the ‘Ready' prompt. 


References END 
STRS 
Format A function used as part of a string expres- 


sion in the form 
STRS (x) 


where x iS a numeric expression 


Storage Code EA 


Explanation STRS$S converts the numeric value x into a 
string of characters corresponding to the number. Hexadeci- 
mal or E format numbers are first converted to decimal. 
Regrettably Oric-1l ROM vagaries have stricken STR$ and an 
illegal control character is placed at the beginning of the 
string when non-negative numbers are used. This should be 
removed, aS shown in the example below. 


Example The function can be useful when numeric re- 
sults are to be shown on the HIRES screen. The only inst- 
ruction available on the Oric-1l for showing non-graphical 
results is CHAR. STR$ is used to convert a number to charac- 
ter form and then ASC converts the characters to ASCII codes 
for use by CHAR 


10 HIRES 

20 INPUT "VALUE FOR DISPLAY";V 

30 vVS=STRS(V):VL=LEN(V$):CURSET 10,100,0 
35 IF V<0O THEN K=1 ELSE K=2 

40 FOR J=K TO VL 

50 M=ASC(MIDS(V$,J,1)) 

60 CHAR M,0,1:CURMOV 8,0,1l 

70 NEXT 


Line 35 gets over the STRS$ bug, by ignoring the first char- 
acter for numbers greater than or equal to zero 


References VAL 
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TAB 


Format A function used as part of a print list in 
the form 


TAB(n) 
where n is an integer expression 
Storage Code C2 
Explanation TAB is supposed to move the print position to 
column n, so that the next item in the print list will be 
displayed at this position. However it does not. ROM 


gremlins have TAB well and truly by the throat, so it should 
be avoided - the SPC function may be used instead. 


References LPRINT, POS, PRINT 
TAN 
Format A function used as part of a numeric expres: 


sion in the form 

TAN (x) 
where x is a numeric expression 
Storage Code E4 


Explanation TAN is a trigonometric function which returns 
the tangent of the angle whose value in radians is given by 
x above. 


Example TAN may be used to draw lines at a specified 
angle. The instructions below draw lines at increasing 
angles from the HIRES screen origin 


10 HIRES 

20 FOR A=l TO 39 
30 T=TAN(A*PI/180) 
40 X=239:Y=X*T 

50 CURSET 0,0,0 

60 DRAW X,Y,1l 

70 NEXT 


Angle A is in degrees so it has to be converted to radians 
before TAN can use it: this is done using the fact that 


2*PI = 360 degrees 
References DRAW, HIRES, PI 
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TEXT 


Format An instruction of the form 
TEXT 
Storage Code Al 


Explanation TEXT invokes standard low-resolution mode, 
the same as that which the Oric-1l adopts when switched on. 
There are 39 columns (numbered 0 to 38) and 27 rows (num- 
bered 0 to 26) in this mode, and a character can/be placed 
at any of these positions. The PLOT instruction does this 
using screen coordinates, while PRINT displays results from 
the current position of the cursor, scrolling the screen if 
necessary. The top line of the display is reserved for such 
messages as ‘Loading’ and ‘CAPS'. Memory locations 48000 to 
49119 correspond to the memory-mapped TEXT screen, and a 
POKE to an address here directly affects the screen. Sec- 
tion 3 contains a thorough explanation of this mode. 


Example The first Example Program at the end of Sec- 
tion 3 operates in TEXT mode and demonstrates many TEXT 
features, 


References LORES, PLOT, PRINT, Section 3 
THEN 
Pormat A keyword giving the action clause in the IF 


instruction, in the form 
IF c THEN al 
or IF c THEN al ELSE a2 
where c is a condition and al and a2 are actions 
Storage Code C9 


Explanation & Example See IF 


References IP 
TO 
Pormat A keyword giving the second clause in the FOR 


instruction, in the form 
FOR v=xl TO x2 STEP x3 
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or FOR v=xl TO x2 


where v is a real numeric data-name and xl, x2 and x3 are 
numeric expressions 


Storage Code C3 


Explanation & Example See FOR 


References FOR 
TROFF 
Format An instruction of the form 
TROFF 
Storage Code 85 
Explanation The Oric-l provides a very useful aid to 


program debugging, in the form of a trace facility. When 
the trace is switched on (by TRON), the number of each line 
executed appears on the screen in square brackets. This is 
particularly helpful when the programmer is finding it diff- 
icult to see what is happening ina long and complex prog- 
ram. TROFF is used to switch off the trace. Tracing only 
operates for the duration of a program and TRON and TROFF 
can only be used within a program - they do not work as 
commands. 


Example The following simple example illustrates how 
TRON and TROFF work 


10 PRINT "EXAMPLE PROGRAM" 
20 TRON 

30 FOR J=1 TO 5 

40 PRINT J,J*J 

50 NEXT J 

60 GOSUB 100 

70 TROFF 

80 GOSUB 100 

90 PRINT "END OF PROGRAM" 
99 STOP 

100 REM DUMMY ROUTINE 

110 RETURN 


This gives the following output when RUN 


EXAMPLE PROGRAM 
(30)(40)1 uf 
(30) (40)2 4 
(30) (40) 3 9 
(30) (40)4 16 
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(30) (40)5 25 
(50) (60)(100)(110)(70)END OF PROGRAM 


References TRON 

TRON 

Format An instruction of the form 
TRON 

Storage Code 84 

Explanation & Example See TROFF 

References TROFF 

TRUE 

Format A constant. of the form 
TRUE 

Storage Code EF 

Explanation TRUE gives the value of -l, since the Oric-l 


represents the logical value 'True' as binary l's: in a byte 
this is binary 11111111, which is -l in decimal. 


Example The use of this constant is limited to aiding 
a program's readability, since it may always be replaced by 
-l. Consider an input section of the program - it is re- 
quired to repeat this section until the input has been done 
correctly, and to do this a logical constant IERROR is set 


Up: 


100 IERROR=TRUE 
120 REPEAT 


200 UNTIL NOT IERROR 


References FALSE 
UNTIL 
Format An instruction of the form 


UNTIL c 
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where c is a conditional expression 
Storage Code 80 


Explanation Used with the accompanying REPEAT instruc 
tion, UNTIL is a method of implementing program loops. The 
construct repeats all instructions between the REPEAT ani 
UNTIL statements until conditional expression c givesa 
value of true. The form of conditional expression is the 
same as that found in the IF statement. When executing: 
REPEAT - UNTIL loop, the Oric-l places the address of the 
start of the loop on the memory stack. If loops are nesta 
inside others then several such addresses build up on the 
stack. If the PULL instruction is executed, one address it 
removed and hence UNTIL branches to the next outer loop, 
UNTIL is similar to NEXT in FOR - NEXT loops, but it doe 
not increment a counter. 


Example REPEAT - UNTIL loops often make program iter 
ation much more comprehensible when the listing is examined, 
Wise use of logical variables produces even greater read 
ability. The simple routine below prints the ASCII code of 
any key pressed, until ‘'S' is entered 


10 REPEAT 

20 GET AS:PRINT "CODE =";ASC(AS) 
30 FINISH=(A$="S") 

40 UNTIL FINISH 


In line 30, FINISH is set to false unless AS$="S". 


References NEXT, PULL 
USR 
Format A function used in two possible forms 


(i) DEF USR = n 

(ii) in a numeric expression as USR(m) 
where n and m are integer expressions 
Storage Code D9 
Explanation USR is a means of accessing machine-code 
routines from a BASIC program. Format (i) defines the start 
address of the routine as n. Format (ii) invokes the rov 
tine, passes a value m to the floating point accumulator, 
and returns the value of the accumulator at the end of the 
routine. 


Example Machine-code routines which do not require 
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values to be passed to them are best invoked by CALL. Rou- 
tines can be placed at the beginning of page 4 (address 
#0400 onwards): such a routine would be defined as 


DEF USR = #0400 


fopass a value of 5 to this routine and place the resulting 
value of the accumulator into a data-name A use 


A = USR(5) 
References CALL, DEF 
VAL 
Format A function used as part of a numeric expres- 
sion in the form 
VAL(s) 


where s iS a string expression 


Storage Code EB 


Explanation VAL returns a numeric value corresponding to 
anumber held in character form in string s. If the string 
starts with non-numeric data, zero is returned; while if the 
string starts with a number and ends with non-numerics, the 
starting number is returned. Positive, negative, fract- 
ional, hexadecimal and E-format numbers are all handled by 
VAL. 


Example When numeric input is required it is often 
better to accept a user entry as a string and then convert 
it. This avoids the system message ‘Redo from start’ if the 
user enters characters instead of numbers. The subroutine 
below only accepts positive integers - characters apart from 
0 to 9 and RETURN are ignored, and the resulting number is 
put into XX. 


1000 xx$="" 

1010 REPEAT 

1020 GET xy$ 

1030 IF xy$>="0" AND XY$<="9" THEN XX$ 
=XX$+XY$:PRINT XYS; 

1040 UNTIL ASC(XY$)=13 

1050 XX=VAL(XX$) 

1060 PRINT 

1070 RETURN 


References STRS$ 
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WAIT 


Format An instruction of the form 
WAIT n 

where n is an integer expression. 

Storage Code B5 


Explanation Causes execution of the current program to be 
suspended for a period of n * 10 milliseconds. 


Example Commonly used to give the user an opportunity 
to examine screen contents before further results are dis: 
played. It also is frequently employed with sound commands 
to control the duration of tones and noises, as in this 
example 


10 N$="ACEFHJLLJHFECA" 

20 INPUT “Delay (1-5)";D 
30 PLAY 1,0,1,1 

40 FOR J=l1 TO 14 

50 N=ASC(MIDS(N$,J,1))-64 
60 MUSIC 1,4,N,10 

70 WAIT 10*D 

80 NEXT 

90 PLAY 0,0,0,0 


References MUSIC, PLAY, SOUND 

ZAP 

Format An instruction of the form 
ZAP 


Storage Code A5 


Explanation Produces a predefined sound of a phasar (or 
Similar!) 


Example Used in games programs. It is the only prede 
fined sound which does not need a delay if repetitive se 
quences are required: contrast the effect of 


FOR J=l TO 5:SHOOT:NEXT 
with 
FOR J=l TO 5:ZAP:NEXT 


The former produces only one sound, while the latter gives 
five. 
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SECTION THREE 
THE ORIC-1 SCREEN DISPLAY 


This section descibes how the Oric-l displays information on 
the screen in its different modes, and includes a discussion 
of serial attributes and how the screen display area is 
stored in memory. Two substantial example programs appear 
at the end. Memory addresses apply to the 48K Oric-l, but 
simply subtract 32768 for the 16K version. 


3.1 DISPLAY RESOLUTIONS 


The Oric-l has two different resolutions of graphics, low 
resolution and high resolution. The former operates in the 
mdes TEXT, LORES1 and LORESO, while HIRES is needed for the 
latter. The different resolutions have their own set of 
instructions, as we now consider. 


Low resolution graphics 


A screen display of 39 by 27 is available in TEXT, LORES1 
and LORESO modes. The x-axis runs from 0 to 38 and the y- 
axis from 0 to 26, but down the screen rather than upwards. 
TEXT is the mode automatically adopted by the Oric-l when 
switched on, and is the most commonly used low resolution 
mode. LORESO and LORES1 both cause the plotting area to 
turn black, although PRINT instructions scroll this area 
upwards, replacing it with the normal background colour. 
LORESO is otherwise the same as TEXT. LORES1 is very un- 
usual in that all characters are displayed using the alter- 
hate character set. Alternate characters consist of blocks 
ona grid two squares wide and three high and are the gra- 
phics characters used on videotext. There are alternate 
characters corresponding to all the printable ASCII char- 
acters and these are illustrated by using the example rou- 
tine for LORES in Section 2. 


In memory, addresses 48000 to 49119 correspond to the TEXT / 
LORES area, and anything POKEd into this section of memory 
will influence what appears on the screen. Now by some 
quick mental arithmetic we find that there are 1120 addres- 
ses but only 39 x 27 = 1053 screen positions: what has 
happened to the rest? The answer lies in noticing that in 
these modes the top line of the screen is reserved for Oric 
messages such as 'CAPS' to indicate you are using upper case 
or ‘Searching ...' when a program is to be loaded from 
cassette. Also, the leftmost column is used by the Oric to 
define the colour of lines on the screen. Thus there are in 
effect 40 x 28 screen positions, giving us 1120 in all. 


To prove this, switch on the Oric (it comes on in TEXT mode) 
and try 

POKE 48008,48 

POKE 49119,48 
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The number 48 is the ASCII code for 0, and the effect of the 
first command is to display a 0 at the top left of the 
screen, while the second command displays a 0 at the bottom 
right. 


Fortunately we are not limited to using POKE to get infor- 
mation on the screen in low resolution modes. The inst- 
ructions PRINT and PLOT can be used, but they are limited to 
affecting the 39 x 27 display - only POKE reaches the 
parts other instructions cannot reach. 


The PRINT instruction is fairly standard but it does havea 
useful variant by combining it with the CHRS$ function to 
print special characters controlling the cursor position, 
eg. CHRS$(8) causes the print position to move left and 
CHR$(11) causes it to move up. 


PLOT has the form: 
PLOT x,y,<expression> 


where x and y give the starting screen position and <expres- 
sion> is the item to be printed, either some text in quotes 
or an ASCII value. It does not affect the cursor position, 
and if low resolution displays are to be set up using PLOT?, 
it is best to switch off the cursor display (by PRINT 
CHR$(17) for example). 


As well as displaying actual data on the screen, the POKE, 
PRINT and PLOT instructions can also affect the colours or 
height of other displayed characters and whether they are 
flashing or steady. This is because the Oric uses serial 
attributes to control its screen, whether low resolution or 
high resolution. These are described in Section 3.2. 


The SCRN function can be used in low-resolution displays to 
find out what character is at a given position on the 
screen. 


High resolution graphics 


Entering HIRES mode on the Oric causes the screen to 90 
black, apart from the bottom three lines. Using PRIN? 
causes the printed information to be displayed in the botton 
three-line window, whereas PLOT does not work at all. PAPER 
and INK give the same result as in low resolution modes, 
There are however several specialised high resolution in 
structions, 


First let us look at the screen and memory layout. HIRES 
makes available a grid of 240 x 200 positions, with they: 
axis from 0 to 199 downwards and the x-axis from 0 to 233, 
There is no top line for system messages (don't try cassette 
commands in HIRES), and all columns are accessible. The 
corresponding memory area is addresses 40960 to 49119, 
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There are forty memory locations for each of the 200 lines 
and a location can hold an attribute or a pattern. If a 
pattern is held it is in the last six bits, thus giving 40 x 
6= 240 horizontal positions. 


Many of the HIRES instructions are similar to other ma- 
chines, but a list is given below. 


CURSET X,Y,FB 


CURMOV X,Y,FB 


DRAW X,Y,FB 


PATTERN N 


CHAR C,M,FB 


CIRCLE R,FB 


FILL R,C,A 


POINT(X,Y) 


moves the cursor to position (x,y) 
and displays the cursor according 
to the FB number: 

background 

foreground 

inverted 

not displayed 


m WN Fe 


Monon ou 


moves the cursor +x and +y relative 
to its previous position. FB as in 
CURSET 


draws a line from the cursor's 
current position to a position 
+x,+y relative to it. FB as in 
CURSET 


defines the pattern for the line 
drawn by DRAW according to the 
binary pattern of N 


displays a character whose ASCII 
value is C at the current position. 
M indicates the mode of display, 0 
being standard characters, 1 being 
alternate 


draws a circle, centred on the 
current position, radius R. 


puts the ASCII value A in R rows 
and C cells (ie. memory locations). 
Ris 1- 200, Cis 1 -—- 40. 


a function which returns a value of 
0 if the position (x,y) is in back- 
ground colour, or 1 if it is fore- 
ground 


The use of these instructions is illustrated in the second 
example program in Section 3.4. 


3.2 SERIAL ATTRIBUTES 


An attribute character placed on a line is invisible but 
affects the way in which the rest of the information on that 
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line is displayed, hence the name serial attributes. They 
are normally used to display items in diferent colours, 
although there are several other uses. The colours avail- 
able are denoted 0 to 7 and are black, red, green, yellow, 
blue, magenta, cyan and white respectively 


Examples 


Attribute characters have codes between 0 and 31, and some 
examples are shown below, a full list appearing in Appendix 
C of the ORIC PROGRAMMING MANUAL 


0-7 foreground colours 0 - 7 
16 - 23 background colours 0 -7 
9 alternate character set 
10 double height character 
12 flashing 

24 60 hz display 


The latter is particularly interesting in that it affects 
the TV modulator and changes the screen synchronisation to 
the American standard: the net effect on a UK set is fuzzy 
lines likely to induce a fit! 


To try out the foreground colour attributes, enter the 
following: 


10 CLS:PAPER 7:INK 0:PLOT 10,5,"BBRRGG 
YYBBMMCCWW" 

20 WAIT 500 

30 FOR A=0 TO 7 

40: PLOT 10+2*A,5,A 

50 NEXT A 


Lines 30 to 50 overwrite alternate letters with colour 
attributes so that all eight foreground colours appear, 
Since colour 7 is white, it is not visible on a white back- 
ground. 


Background & Foreground 


Background and foreground colour attributes are held at the 
beginning of each display line, defining the colours for 
that line. In low resolution modes the background colour 
can only be accessed by a POKE into the display memory area, 
The foreground colour can be changed by using PLOT with an 
x-axis value of 0. The background / foreground attribute 
pair for line 0 is in bytes 48000 and 48001 and attributes 
for subsequent lines are held at forty byte intervals, ie, 
for line J the background colour attribute is in location 
48000 + 40 * J, while the foreground colour attribute is in 
location 48001 + 40 * J. In high resolution mode a similar 
pattern follows, except there are 200 attribute pairs to 
match the y coordinates 0 to 199. 
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INK defines the foreground colour of the whole screen, while 
PAPER defines the background colour. The colours are speci- 
fied by the numbers 0 to 7. Both INK and PAPER set the 
attribute characters at the beginning of each screen line. 
For example if we look at addresses 48040 and 48041, the 
first two positions of the first screen line: 


10 PAPER 7: INK 0 
20 PRINT PEEK(48040),PEEK(48041) 
30 PAPER 6: INK l 
40 PRINT PEEK(48040),PEEK(48041) 


Notice how the background attribute stored in the first 
postion changes from 23 to 22 and the foreground attribute 
stored in the second position changes from 0 to l. 


Attributes in Memory 


The colours used in a screen display are stored as attribute 
characters in the same memory area as the data appearing on 
the screen, namely between 48000 and 49119 in low resol- 
ution, or btween 40960 and 49119 in high resolution. Attri- 
bute characters are distinguished from data by their binary 
patterns. If an address in the display area holds a binary 
value with the second and third bits both zero, then this is 
an attribute, otherwise it is a normal character or pattern 
to be displayed, in which case the last six bits are used. 


Escape Codes 


So far we have seen how to insert attributes by either 
PLOTting them or POKEing them onto the screen, but this is 
often inconvenient as it involves knowing exactly where on 
the screen the portion to be highlighted lies. An alter- 
native method uses the PRINT statement eg. 


PRINT “The word is ";CHR$(27);"Emagenta" 


This statement simulates the sequence ESC E, which causes 
the Oric to print attribute 5 - the foreground magenta 
attribute. Any attribute can be summoned up in a similar 
method - by using CHR$(27) for the ESC key and then using 
the relevant letter. This is determined by the fact that 
ESC A is attribute 1, ESC B is attribute 2, and so on. 


3.3 USER-DEFINED CHARACTERS 


The Oric-l is not limited to the standard or alternate 
character sets supplied: any character shape may be. set up 
to replace an existing character. To redefine a character 
its layout must be changed by POKEing eight six-bit numbers 
into the character set area of memory. This lies between 
addresses 46080 and 47103, and character patterns are found 
in their ASCII sequence, as described in Section 5. The 
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Oric is unusual in that it only uses and 8 x 6 grid of 
binary patterns to define a character, rather than the 
normal 8 x 8. 


Consider for example setting up a checkered pattern character 
to demonstrate mixing of colours on the screen. To set up 
the required check pattern we use the binary digits: 


010101 = 21 
101010 = 42 
010101 = 21 
101010 = 42 
010101 = 21 
101010 = 42 
010101 = 21 
101010 = 42 


Any character may be chosen for redefinition: in the routine 
below the exclamation mark is used: 


300 FOR J=0 TO 7 

310 : POKE 46080HJ+8*ASC("!"),21*((J AND 1)+1) 
320 NEXT J 

330 RETURN 


Any subsequent printing of the exclamation mark will cause 
the check pattern to appear instead. The following 
instruction demonstrates the mixing of green and white ina 
checked pattern: 


PRINT CHRS (27)+"B"+CHRS(27)4+"WILlige?gg" 


In the first example program below, the % character is 
redefined as a robot shape. 


3.4 EXAMPLE PROGRAMS 
Low Resolution Example 


The first example operates in TEXT mode and is designed to 
test young children on simple subtraction. The principle is 
the ancient one of using random numbers to set the question, 
of which ten are presented, and a score given at the end, 
However it is done in a way of interest to a child by 
displaying a number of robots and then removing some of then 
(ie. shooting them!) and seeing how many are left. In 
response to the question the child presses the number key 
corresponding to his answer - there are only single-digit 
answers and the RETURN key is not needed. To get the next 
question he simply presses any key. 


The program contains comments to show what is happening, but 
here is the general method: 


90 


l. Initialise screen and variables ~- subroutine 1000 
2. For ten questions: 


a. Set question - subroutine 1200 

b. Get answer - subroutine 1400 

c. Response 
CORRECT - subroutine 1800 
INCORRECT - subroutine 2000 
Reinforce answer - subroutine 1600 


3. Endup - give score - subroutine 3000 


110 REM Robot Subtraction 

120 GOSUB 1000 ’Initialise 

130 Q=1 

140 REPEAT 

150 : GOSUB 1100 ’*Question & answer 
160 5s Q=Q+1 

170 UNTIL Q>QN 

180 GOSUB 3000 ’Endup 

190 STOP 

1000 REM Initialise screen & vars 

1010 PAPER 7:INK O:PRINT CHR#(17):CLS 
1020 S=0: QN=10 

1030 FOR A=46376 TO 46383 

1040 : READ V:POKE A,V 

1050 NEXT A 

1060 DATA 8,62, 28, 28, 28,20, 20,54 

1070 RETURN 

1100 REM Question, answer & response 
1110 GOSUB 1200 *Set question 

1120 GOSUB 1400 ’*Get answer 

1130 GOSUB 1600 ’Response 

1140 RETURN 

1200 REM Set question 

1210 CLS:PRINT 

1220 FRINT "Question "3Q3; TAB(29) § “Scor 

e: "3S 

1225 PLOT 0,1,4 

1230 RB=2+INT(RND (1) *8) :C=2+INT (RND(1)* 

8) :A=B+C 

1240 PRINT:PRINT CHR$(4)3" Here are "5 

A; "robots" 

1250 PLOT 1,3,10:PLOT 1,4,10:PLOT 9,4, 
1:PLOT 0,4,1 

1260 PRINT:SPRINT: PRINT 

1265 FOR J=1 TO A 

1270 PRINT " “4%32RC=INT(RND(1)*6) PLOT 
2*J-1,7,RCsPLOT 2*J-1,8,RC 

1275 NEXT J 

1280 PLOT 1,7,10:FLOT 1,8,190 

1290 FOR J=1 TO 6:FRINT:NEXT J 

1300 FRINT " "SBs "get shot. How many 

are left?" 
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1310 PLOT 1,13,10:PLOT 1,14,10:sPLOT ©, 
13,1:PLOT 0O,14,1 

1320 PRINT: PRINT:PRINT 

1330 PRINT SPC(1S3)5AS"- “"SBS"= YP" 
1340 PLOT 13,17,10:PLOT 13,18,190:PLOT 

22,17,14:PLOT 22,18,14 

1350 FOR J=1 TO S3:PRINT:NEXT J 

1360 RETURN 

1400 REM Get answer 

1410 OKZ=FALSE 

1430 REPEAT 

1450 : REPEAT: K$=KEY$: UNTIL K#<>"" 
1460 : OKAZ=((K$>="0") AND (KE$¢="9")) 
1470 UNTIL OKZ 

1480 DK$=" “4+ke+" " 

1490 PLOT 22,17.DK#:PLOT 22,18, DK$% 
1510 WAIT 250 

1520 RETURN 

1600 REM Response 

1610 IF C=VAL (KS) THEN GOSUB 1800 ELSE 
GOSUB 2000 

1615 WAIT 150 

1620 FOR J=1 TO & 

1630 = PLOT 24J,7," “sPLOT 2%J,8," “s 
ZAP:WAIT 6&0 

1640 NEXT J 

1660 FOR J=1 TOC 

1670 =: PLOT 2*(B+J)-1,10,STR#$(J) sWAIT 
30 

1675 NEXT J 

1680 FOR J=S TO O STEP ~-1 

1690 =: PLOT 0,17,J3J:FPLOT 90,18,J:WAIT 6 

QO 

1700 NEXT J 

1710 FRINT:FPRINT:FRINT CHR#(4)5 "Press 
any key for your next turn" 

1730 REPEAT 

1740 : PLOT 0,24,1:PLOT 9,24,4 

1750 UNTIL KEY#<>"" 

1760 RETURN 

1800 REM Response —- correct 

1810 PRINT SPC(10)5"Yes. "sCs"are lef 

idles 

1820 PLOT. 190,21, Os FLOE 10,22, 102F LOT 
OD -2ky i SPLOT Q, 22,1 

1830 FING 

1840 S=St+1i:PLOT 34,1,STR8(S) 

1850 RETURN 

2000 REM Response - incorrect 

2O10 PRINT SFC(10)3"No. "sCs"are left 
29020 PLOT 10,21, 10:PLOT 10, 22,10: PLOT 
O,21,4:PLOT O,22,4 

2O30 AG=STRE(C) +" " 

2040 FLOT 23,17,A$:FLOT 23,18, A$:FLOT 
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22,17,1:sPLOT 22,18,1 

2050 EXPLODE:WAIT 250 

2060 PLOT 22,17," "PLOT 22,18," " 
2070 RETURN 

3000 REM Endup —- show score 

3010 CLS:PAPER 6: INK QO 

S020 FOR J=1 TO 9:PRINT:NEXT J 

SO30 PRINT CHR#$(4)3"The end. You got 
"sS3 "right" 

3040 PLOT 0,9,10:PLOT 90,19,10 

3060 FOR J=!1 TO 15:PRINT:NEXT J 

3070 PRINT CHR#$(4)3"Press 1 to start a 
gain or 90 to stop" 

3080 REPEATS KS=KEY#s UNTIL KSC >"" 

5085 PRINT CHR (17) 

3090 IF K$="1" THEN RUN 

3100 STOP 


High Resolution Example 


The second example of Oric-l graphics operates in HIRES. A 
clock face is drawn and the user is prompted to enter atime 
as hours and minutes (separated by a comma eg. 6,15). The 
program then draws the hands to display the time as on an 
analogue clock. The user continues by pressing RETURN and 
entering another time to be shown. The program is termi- 
nated by entering 'S'. 


The method is as follows. 


l. Initialise screen 
a. Set colours 
b. Draw centre 
c. Draw border 
d. Draw numbers 1 - 12 


2. Repeat until 'S' entry: 
a. Enter time as HR and MN 
b. Calculate angle position of hands 


c. Draw hands —- subroutine 400 

d. Wait for keyboard entry 

e. Remove hands - subroutine 400 
3. Stop 

110 HIRES 


20 PAPER 6: INK 1 

130 CURSET 100,10900,3 

135 REM Draw centre 

140 FOR R=1 TO 3:CIRCLE R,1i:NEXT R 
145 REM Draw border 

150 CIRCLE 80,1 

160 CIRCLE 85,1 
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165 
170 
180 
190 
200 
210 
220 
230 
235 
7,0, 
240 
250 
252 
255 
260 
280 
290 
300 
310 


REM Draw numbers i - 12 

I=1 

REPEAT 

:N=48+]1 

rA= (941) /&*PI 

:CURSET 100,100,3 

sCURMOV 65*COS (A), S5*SIN(A),3 

:IF N<58 THEN CHAR N,0O,1:GOTO 240 
:CURMOV —7,0,3:CHAR 49,0, 1:CURMOV 
3:CHAR N-10,0,1 

:[=[+1 

UNTIL I>12 

REM Enter & display time 

REPEAT 

INPUT "TIME (HR,MIN) “sHR,MN 

XH= CHR+MN/ 60-3) #PI/6 

XM= (MN-15) #P 1/30 

FR=1:GOSUBR 400 

PRINT "Fress RETURN (S to stop)":G 


ET Kt 


S15 
320 
430 
3490 
S95 
400 
410 
4135 
420 
430 


PRINTsPRINT 

FRB#0:GOSUEB 400 

UNTIL K#="S" 

STOP 

REM Draw /Remove hands 

CURSET 100,100,2 

DRAW 45*COS (XH), 45*#SIN(XH) ,FR 
CURSET 100,100,3 

DRAW SS*COS (XM) ,SS*SIN(XM) , FRB 
RETURN 
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SECTION FOUR 
ORIC-1 PROGRAM AND DATA ORGANISATION 


The manner in which the Oric-1l stores BASIC programs and 
their accompanying data reveals a great deal about the way 
in which the machine works, and also gives many hints on 
efficient programming techniques. In this section the use 
of keyword numbers is explained, the use of pointers to link 
program statements is described, and each data type's 
storage organisation is considered 


4.1 NUMBERS IN MEMORY 
Binary and Hexadecimal 


The Oric-l, in common with most microcomputers, stores both 
instructions and data in numbered memory locations, each 
holding eight binary digits (bytes). Thus a memory loc- 
ation can hold values between 00000000 and 11111111, or in 
decimal 0 and 255. The binary number system uses only the 
digis 0 and 1, and column positions in a binary number 
increase in powers of 2, in the same way that in a decimal 
number they increase in powers of 10. Another useful number 
system is hexadecimal. As the binary system (base 2) has 
two digits and the decimal system (base 10) has ten digits, 
so the hexadecimal system (base 16) has sixteen digits, 
namely 0 to 9 and then A to F representing 10 to 15. It is 
convenient to use the hexadecimal number system as a 
shorthand for binary, since one hexadecimal digit represents 
four binary digits. An example illustrates this. 


Binary 10011100 = 1 x 128 
+ 0x 64 
+ 0x 32 
+ 1x 16 
ae ae 8 
+ 1x 4 
+ 0 x 2 
+ 0 x 1 
= 156 
In hexadecimal, 1001 1100 
9 } Re 
9 Cc 
Hexadecimal 9C = 9x16 = 144 
+ Cx Jl = 12 + 
= 156 


By convention, hexadecimal numbers are usually prefixed with 
the hash sign (#) to distinguish them from numbers in other 
systems. 
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High- and Low-Order Bytes 


In microcomputers like the Oric-l which use the 6502 micro- 
processor, integers are often stored in pairs of locations 
giving a value range of 0 to 65535. However the high-order 
part of the integer is usually stored in the second byte of 
the pair and the low-order part in the first. For example 
if we know that locations #0600 and #K0601 hold an integer 
value, and that the former holds #23 and the latter B9A, 
then the integer is #49A23. 


4.2 A BASIC PROGRAM IN MEMORY 


The Oric-l stores its current BASIC program in a memory area 
Starting at location #0500. Therefore, in order to consider 
how a BASIC program is stored, a useful starting point is to 
write a BASIC program which will display this memory area, 


and then enter it onto the Oric-l, and get it to display 
itself. 


Example Program 


The following program prompts the user to enter a start and 
end address and then on each depression of the P key dis- 
plays a block of eight bytes in hexadecimal, between these 
addresses. The reader need not enter it himself as the 
results are shown below. 


100 INPUT "Start:"3AI 

ia INPUT. edie "sri 

170-5 

13@ FOR A=A1l TO A2 STEP 8 

14@ LPRINT:LPRINT HEX$(AJ " 3 93 
15@ FOR B=A TO At? 

160 P=PEEK(B) :P$=HEX$(PJ:GOSUB 58 
178 LPRINT HS © "3 

18@ NEXT B 

19@ REPEAT :UNTIL KEY$="P" 

200 NEXT A 

218 END 

5@@ L=LENCP$):0N L GOTO 518,520,538 
518 H$="088" :<RETURN 

520 H$="O"+RIGHTS$CP$, 1) *=RETURN 

53Q@ H$=RIGHT$(P$, 2) :-RETURN 


The Program in Memory 
If the program is run with a start address of #0500 and an 
end address of #0638 then (with the P key pressed for each 
display line) the following results are obtained, providing 
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the inclusion of spaces within instructions is exactly as 
listed above 


#504 ° BOG 13 BU 54 BB G2 28 22 
#508 53 74 61 72 24 3A 22 3B 
#516 ° 414 31 20 2: B85 6E oa 32 
#5i2 . 20 22 45 GE 64 3A 22 3B 
#520 : 41 32 @8 29 @5 78 BB 394 
#528 : 88 3D @5 82? @8 8D 22@ 4) 
#536 : 94 41 31 28 (3 2@ 41 32 
#538 : 20 CB 20 38 88 51 @S 8C 
#544 : B@ BF BA BF 28 DC 28 4] 
#548 - 29 28 22 20 3A 20 22 3B 
#558 : 828 61 85 36 B@ 8D 20 42 
#558 : 04 41 20 C3 20 41 CC 37 
H55@ : @B VA @5 AB BB 5@ D4 £6 
#568 : 28 42 29 3f 5O 24 D4 DC 
#578 - 28 5@ 29 3A 3B 28 35 30 
4578 : 38 Q@8 83 85 AA BB BF 22 
#588 ° 48 24 20 2? 26 22 3B 20 
#588 : QB 39] 85 B4 BB 3B 20 42 
#590 . 88 3F BS BE BB BB 3A BC 
#598 : 2@ Fl! D4 22 5@ 22 88 A? 
HSAG Q5 C8 BB 38 28 4) B@ AD 
#5A8 : 8S D2 B@ 8B BB CB @5 F4 
H5BA@ - @1 4C D4 ES 28 5@ 24 29 
#5B8 : ZA B4 2@ 4C 28 37 28 35 
#5CO ?- 31 30 2C 35 -32°38.26 235 
#5C8 : 33 38 8@ DS @5 FE B1 48 
H50D@ : 24 D4 22 38 30 22 3A SC 
#SUE@ : @@ EF OS O8 @2 48 24 D4 
HSEQ : 27 30 22 CC FS 28 5@ 24 
HSE8 : ZC 31 29 3A 3C @@ FF OS 
HSFO . iz BW? 48 24 D4 FS 28 5B 
#5F8 : 24 2( 32 29 3A SC QB BB 
#680 : BB 4] 31 8B 28 BB BB 2B 
#608 . 4] 32 8B 47 88 BB BB 41 
#610 : @8 8B 42 @B BA BB 42 BB 
#618 : BB 43 48 8@ B@ 50 BB a2 
#628 : GB BG BB BB 5B 8B B3 BB 
#628 : 3A BB B@ 4L BB B81 4B BA 
#630 : 08 88 48 88 82 DY 39 Ba 
#630 <¢ @0:°55: 55.55 55 So 55.55 


The 855 code then occurs throughout most of the remainder of 
user RAM, indicating unused space. 


A pattern is soon found in the above hexadecimal list by 
applying some general principles. The ASCII NUL value (00) 


a7 


is used to separate program lines; line-numbers are held as 
two-byte integers; a two-byte pointer to the memory address 
where the next statement starts precedes each line-number; 
and Oric-l keywords are converted into their storage codes 
(see list Appendix 1). On this basis the hexadecimal codes 
are explained as follows: 


#500 : 00 line separator 
#501 : 13 05 pointer to #0513 (line 110) 
#503 : 64 00 line number 100 
#505 : 92 INPUT 

#506 : 20 space 

#507 : 22 - 

8508 : 53 S 

#509 : 74 t 

H50A : 61 a 

H#50B : 72 r 

H50C : 74 t 

H50D : 3A : 

B50E : 22 " 

B5OOF : 3B ; 

#510 : 41 31 Al 

B512 : 00 line separator 
#513 : 23 05 pointer to #0523 (line 120) 
#515 : 6E 00 line number 110 
H517 : 92 INPUT 

#518 : 20 space 

B519 : 22 _ 

H51A : 45 E 

H51B : 6E n 

H51C : 64 d 

H51D: 3A $ 

BS1LE : 22 . 

BSIF : 3B ; 

B520 : 41 32 A2 

8522 : 00 line separator 
#523 : 29 05 pointer to #0529 (line 130) 
4525 : 78 00 line number 120 
H527 : 94 CLS 

4528 : 00 line separator 
#529 : 3D 05 pointer to #053D (line 140) 
H52B : 82 00 line number 130 
#52D : 8D FOR 

H52E : 20 space 

H52F : 41 A 

#530 : D4 = 

H531 : 41 31 Al 

4533 : 20 space 

4534 : C3 TO 

#535 : 20 space 

H536 : 41 32 A2 

#538 : 20 space 
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#539 
H5S3A 
#53B 


H53C 
#53D 
#53F 
#541 
#542 
#543 
#544 
#545 
#546 
#547 
#548 
#549 
BS4A 
H54B 
B54C 
#54D 
BS4E 
BS4F 


#550 
#551 
#553 
#555 
#556 
#557 
#558 
#559 
HSSA 
#55B 
H55C 
#55D 
HSSE 
HOSF 


#560 
#561 
#563 
#565 
#566 
4567 
B568 
#569 
BS6A 
H56B 


oe 0f 00 00 08 ef ee ce 88 of 


ee @¢8 @8 ee 66 


B56C : 


H56E 


HS6F : 
B570 : 


#571 
B572 
#57 3 


05 
00 


05 
00 


24 


STEP 
Space 
8 


line separator 

pointer to #0551] (line 150) 
line number 140 

LPRINT 


LPRINT 
space 
HEX$ 

( 

A 

) 
space 


space 


space 
w 
; 


line separator 

pointer to #0561 (line 160) 
line number 150 

FOR 

space 


line separator 

pointer to HO57A (line 170) 
line number 160 

P 


PEEK 
( 
B 
) 


P$ 


HEX$ 


( 
P 
) 


a9 


#574 
#575 
#576 
#577 
#578 


#579 
HS7A 
H57C 
HS7E 
HO7F 
B580 
#582 
#583 
#584 
#585 
B586 
#587 


#588 
#589 
#58B 
#58D 
H58E 
HS8F 


#590 
#591 
#593 
#595 
#596 
#597 
#598 
#599 
HO9A 
H59B 
#59C 
B59D 


H5S9OE 
#59F 
H5Al 
H5A3 
H5A4 
H5A5 


H5A6 
HSA7 
#5A9 
#5AB 


#5 AC 
#5 AD 
HOAF 
H5Bl1 


ee os ce 8 os 8% of 88 28 28 8 80 


05 
00 


24 


05 
00 


05 
00 


05 
00 


05 
00 


05 
01 


GOSUB 
space 
5 
0 
0 


line separator 

pointer to #0589 (line 180) 
line number 170 

LPRINT 

space 

H$ 


Space 
" 
space 
n 


’ 


space 


line separator 

pointer to #0591 (line 190) 
line number 180 

NEXT 

space 

B 


line separator 

pointer to HO59F (line 200) 
line number 190 

REPEAT 

UNTIL 

space 

KEY$ 


P 


line separator 

pointer to BO5A7 (line 210) 
line number 200 

NEXT 

space 

A 


line separator 

pointer to HO5AD (line 500) 
line number 210 

END 


line separator 

pointer to HOS5CB (line 510) 
line number 500 

L 


100 


H5B2 
#5B3 
E5B4 
E5B5 
E5B7 
B5B8 
E5B9 
ESBA 
H5BB 
E5BC 
#5 BD 
HSBE 
#5 BF 
#5C0 
H5C1 
B5C2 
#5C3 
#5C4 
H5C5 
B5C6 
H5C7 
H5C8 
H5C9 


HSCA 
H5CB 
#5CD 
BSCF 
H5D1 
B5D2 
H5D3 
#5D4 
BE5D5 
B5D6 
B5D7 


#5D8 
#5D9 
R5DB 
E5DD 
HSDF 
B5EO 
BSE1 
E5E2 
B5E3 
HSE4 
BSE5 
BE5E6 
BSE8 
HOE9 


S ee ef se 0 


ee 8 @6 86 gg 668) 688 os oe ee ee 8 60 eo me 


oe 88 os & of 88 ce 8 


E5SEA : 
RB5OEB : 


HSEC 


#5ED 


24 


05 


24 


24 


On Ue Of Ul 


Ow Ula 


line separator 

pointer to #05D9 (line 520) 
line number 510 

H$ 


200 3 | 


RETURN 

line separator 

pointer to HO5EE (line 530) 
line number 520 


HS 


ETURN 
line separator 
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H5EE : FF 05 pointer to HOSFF (end) 
H5FO : 12 02 line number 530 
BSF2 : 48 24 HS 

HOF4 : D4 = 

H5F5 : FS RIGHTS 

B5F6: 28 ( 

HS5SF7 : 50 24 PS 

H5F9 : 2C ’ 

HO5SFA : 32 2 

R5FB : 29 ) 

HOFC : 3A : 

R5FD : 9C RETURN 

H5FE : 00 line separator 
HOFF : 00 00 null pointer (end) 


Efficient Programming 


Address #0601 onwards contains the data for the program: 
this is considered next. However several useful facts are 
brought up by the above consideration of the program organi- 
sation. Firstly, spaces in program instructions are stored 
and can therefore be wasteful on memory: if in a long prog- 
ram storage is at a premium then they should be removed, 
Normally of course they do aid program readability. Sec- 
ondly, the fact that the BASIC interpreter converts all 
keywords to single-byte codes means that it is simple to 
change a keyword throughout a program. For example, the 
user may develop a program using PRINT instructions and then 
wish to change the output to the printer. Rather than 
editing each statement, a loop may be used to search for 
occurrences of KBA (PRINT) and change them to H8F (LPRINT). 
It is also straightforward to design a renumbering routine 
once the program layout is understood. 


4.3 DATA REPRESENTATION IN MEMORY 
See the summary table on the following page. 
The Data Area 


The program in Section 4.2 ends with a null pointer in bytes 
HOSFF and #0600 - this is obviously not a fixed point, and 
if extra lines were added to the program, so more memory 
would be used to store it. However immediately aftera 
BASIC program there is an entry for every data-name used in 
the program. MThe order of occurrence in memory is the same 
as the order in which the names occur in the program, with 
single values before arrays. Data items are stored in 
different ways depending upon their type and structure, eg. 
integer or character, single valued or array. The example 
program is not ideal for examining how data is stored since 
in the main the data items are being used to display then- 
selves, and thus change from byte to byte. Nevertheless we 
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DATA NAMES 
REAL NUMERIC 1 


CHARACTER Cl C2+80 


INTEGER NUMERIC 1+80 


wie 


where Cl is the ASCII code of the first character 
of the name and C2 is the ASCII code of the second 
character, 


DATA 


ys eee 


Exponent Mantissa 


eels OO Oe Ee Oe ES 


u—~—_ 
Integer 


one ’ gummed 
Length Pointer 


header elements 
—— 
number diml INTEGERS 2 bytes 
of dimensions REALS 5 bytes 


STRINGS 3 bytes 


Figure. Format of Data in Memory 
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will consider the example data area and then look at other 
examples later. 


Data items are stored as 'name' followed by ‘value'‘. The 
name is abbreviated to two characters and stored as ASCII 
codes, . If a name is only one character long then the 
second byte is #00. One or both codes may have the highest 
bit set to l as is now explained 


Data names 


Real numeric data names are stored as tne ASCII codes of the 
first two characters of the name. For example, Al of the 
example program is at bytes #0601 and #0602. Integer data- 
names are stored in the same way but with the highest bit of 
each character code set to l: this is in effect the same as 
adding K80 to the code. Character datanames are a cross 
between the above two - only the second character code has 
its highest bit set. For example, P$ is at bytes #0624 and 
H0625. These three conventions apply regardless of whether 
the data is single-valued or an array. 


Single Data Values 


The value (or values) of a data item is stored after its 
name. Consider first single values. A real, integer or 
character variable is stored in five bytes. For real var- 
lables, floating-point format is used with the exponent byte 
first and then a four-byte mantissa. Integers only use the 
first two bytes of the five, the final three being set to 
zero. Character variables use the first byte as a length 
byte and bytes two and three act as a pointer to another 
memory area where the character string is found. This may 
be within the program area itself, or elsewhere. 


Arrays 


For arrays of one dimension a five-byte header always pre- 
cedes the array elements. The third byte is always one 
(number of dimensions) while the remaining pair of bytes 
(fourth and fifth) of the header shows the number of ele- 
ments (eg. 21 for an array of dimension 20 since subscripts 
Start at 0). For real numeric arrays there is then a five- 
byte block for each element in the array, following the same 
rules as for single real values. Integer arrays use two- 
byte blocks and character arrays have three-byte blocks, 
with rules as above. It may be recalled that arrays do not 
need to be dimensioned (using DIM) unless their size exceeds 
10: in fact whenever an undimensioned array reference is 
first found, eleven (0 - 10) element spaces are reserved in 
memory. This is of course very wasteful for say a three 
element real array. We conclude it is much more efficient 
to specify the dimension of arrays used. 


Arrays of more than one dimension have their elements stored 
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in the same way as above, but the header differs. The third 
byte shows the number of dimensions, and this is followed by 
a pair of bytes for each dimension specifying the actual 
size, in the reverse order to the dimensions in the DIM 
instruction. Thus a three-dimensional array has 3 + 3 x 2 = 
9 bytes as its header. 


Extending the Example Program 


io Lliustrate these storage principles we add some state- 
ments to the front of the program in Section 4.2, and then 
examine the resulting data area in memory. 


10 DIM KK%(4),R (12) .NAM$(5) .M%(2,5, 3) 
20 A=60. 75: 8%=20: CC$="WORD" 

30 FRINT A,B%, CCS 

40 FOR I=1 TO 4:READ KK% (I): FRINT KKZ( 
I), :NEXT 

45 DATA 3,~-3, 1000, -1000 

50 FOR I=0 TO 12:READ R(I):FRINT KCI): 
NEXT 

SS DATA 0,1,2,354,~1,-25 ~35 —4, 456,0.43 
75, -0. 75, 65537 

60 FOR I=1 TO S:READ NAM$(1):PRINT NAM 
$(1):NEXT 

65 DATA FRED,HENRIETTA,,1,ALBERT 

70 FOR I=0 TO 2:FOR J=0 TO S:FOR K=0 T 
0 3 

80 READ MZ(1I,J,K) sPRINT MZ(I,d,K) 

90 NEXT K:NEXT J:NEXT I 

95 DATA 1,2, 35,4455 by 748,97, 10, 11,12, 15, 
14,15, 16,17, 18,19, 20, 21, 22, 23, 24,25 

96 DATA 26, 27, 28, 29, 30,31, 32, 33, 34,35, 
36, 37, 38, 39, 40, 41,42, 43, 44, 45, 46,47 

97 DATA 48,49,50,51,52,53,54, 55, 56,57, 
58,59,60,61, 62, 63, 64, 65, 66, 67, 68, 69 

98 DATA 70,71,72 


Having added these lines to the example program in Section 
4.1, with spacing identical to that listed, we RUN the 
result. When prompted we specify a start address of #0850 
and an end address of #09C0O. Note that the P key must be 
pressed for each display line. The listing below gives the 
resulting output. 


The New Data Area 


#850 =: 32 29 3A 9C 00 00 00 § 
#858 : 00 86 73 00 00 00 C2 BO 
#860 ; 00 14 006 00 Q0 4% C3 04 
#6868 : 3D 05 00 00 49 00 82 40 
#870 2: 00 00 00 4A OO B82 40 OO 
#878 : 00 00 4B 00 83 OO OO 00 
#880 : OO 41 S31 BC 95 OO 00 OO 
#886 : 41 32 8C 1C 00 00 O00 41 
#890 2: 90 BC 99 00 OO O00 42 OO 
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#898 : BC O09 AD OO OO 50 900 900 
#B8A0 +: 00 00 00 00 SO BO O38 O4 
#B8A8 : 9D 00 00 4C 00 B1 40 900 
#8BO : 00 00 48 80 O02 D3 9D 20 
#8B8 : OO CB CB 11 00 O1 00 O05 
#8CO : O00 00 OO O3 FF FD O3 EB 
#8C8 : FC 18 S2 00 48 G0 O1 O00 
#8DO : OD 00 00 00 00 O00 B1 O00 
#8D8 : 00 00 00 82 00 GO 00 00 


#BEO : B82 40 00 00 00 83 00 00 
#8E8 00 00 B81 80 00 G0 00 82 
#8FO BO 00 00 00 B2 CO 00 OO 
#8FB : 00 B&% BO 00 00 00 B9 64 
#900 +: 00 G0 00 7F 60 00 00 00 


#908 : B80 COQ 00 00 00 91 00 20 
#910 : BO OO 4E C1 19 60 O1 00 
#918 : 06 00 00 00 04 08 O06 O9 
#920 : OD 06 00 17 06 O1 18 06 
#928 : 06 1A 96 CD BO 9B 00 O38 


#930 : 020 04 00 06 00 03 00 O1 


#938 : 00 19 00 31 00 O5 00 1D 
#940 : 00 35 00 09 00 21 00 39 
#948 : 00 OD 00 25 00 3D 00 11 
#950 : 00 29 00 41 00 15 O00 2D 
#958 +: 00 45 00 02 00 1A 00 S32 
#960 : 00 06 00 1E 00 36 00 OA 
#9468 : 00 22 00 3A O00 OE 00 26 
#970 : OO 3E 00 12 00 2A 00 42 


#978 : 00 16 00 2E 00 46 00 O38 


#980 : 00 1H 00 33 00 O7 OO IF 
#988 : 00 37 00 OB 00 23 00 SB 
#990 2: OO OF 00 27 00 SF OO 13 
#998 : 00 2B 00 43 00 17 00 2 

#9AQ0 : 00 47 00 04 00 1C 00 34 
#9AB : 00 08 90 20 00 38 00 OC 


#9BO : 00 24 00 SC 00 10 00 28 
#9R8 00 40 00 14 00 2C 00 44 
#9CO oO 18 00 30 00 48 00 18 


Integers 


We look first at the integers. B% is stored as follows 


HO85E 


C2 80 name 


BO0860 : 00 14 00 00 00 value =20 


C2 is #42 + #80, with H42 being the ASCII code for B, and 
second name byte being #00 + #80. This illustrates the rule 


for 
set 


the 
two 


The 


forming integer names in memory. The value of B% was 
in line 20 to twenty, and it does not change. Note that 
hexadecimal equivalent (#0014) is stored in the first 
bytes and the remaining three are zeroised. 


integer array KK% is organised thus 
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HO8B9 : CB CB name 

HO8BB : 11 00 O1 00 O5 header 

HO8CO : 00-00 value KK%(0) = 
#O8C2 : 00 03 value KK%(l) = 
#O8C4 : FF FD value KK%(2) =-3 
HO8C6 : 03 E8 value KK%(3) =1000 
HO8C8 : FC 18 value KK%(4) =-1000 


The name is stored as the ASCII codes of KK with K80 added 
to both. The header indicates a one-dimensional array (#01 
in third byte) of five elements (00 05 in last pair). The 
element values then follow in two-byte blocks. Notice that 
zero and positive integers are stored as the normal hexa- 
decimal numbers, but negative integers differ. This is 
because they are stored in what is known as the “two's 
complement" form. This involves taking the binary version 
of the unsigned number, inverting all the bits (ie. changing 
l's to 0's and O's to 1's) and adding 1. The example below 
shows how -1000 is stored 


Decimal 1000 = binary 0000 0011 1110 1000 


INVERT: 1111 1100 0001 O111 
ADD 1 : +] 


= 1111 1100 0001 1000 
or in hexadecimal : F C 1 8 
Finally in the consideration of integers, study the three- 
dimensional array M%. The first part of it is shown below: 


it is not particularly useful to look at all its 72 elements 


#092B : CD 80 name 
FO092C : 9B 00 03 00 04 00 06 00 03 header 


B0936 : 00 Ol M%(0,0,0) =1 
#0938 : 00 19 M%(1,0,0) = 25 
BO93A : 00 31 M%(2,0,0) = 49 
KF093C : 00 05 M%(0,1,0) =5 
BFO93E : 00 1D M%(1,1,0) = 29 
BF0940 : 00 35 M%(2,1,0) = 53 
B0942 : 00 09 M%(0,2,0) = 9 
and so on to ... 
BFO09C4 : 00 48 M%$(2,5,3) = 72 


The name again follows the usual rule for integers. Byte 3 
of the header shows that the array has three dimensions, the 
actual sizes being given in the following three pairs of 
bytes ie. 4, 6 and 3, corresponding to DIM M%(2,5,3) in 
reverse order. 


Real Numbers 


Now we turn our attention to the storage of real numbers. 
The data item X appears first in the program and is there- 


LOT 


fore first in the data area of memory 


#0857 : 58 O00 name 
B0859 : 86 73 00 00 00 value = 60.75 


The name is stored as straight ASCII codes. The value is 
stored in floating-point form. This involves putting the 
number into the form of a binary mantissa (fraction) and 
exponent (power). The exponent is stored in the first byte 
and the mantissa in the remaining four bytes. Exponents are 
stored in ‘excess 128' format, ie. they have 128 (#80) added 
to them - this allows a range of -128°to +127 represented by 
HOO to BFF. The mantissa is arranged so that in binary it 
starts 0.1..., and only the part after the point is stored. 
For positive mantissas, 0.1 is subtracted, while for nega- 
tive ones there is no change. This means that negative 
mantissas always start with 1 and positive mantissas always 
start with 0. 


Consider the value of X, 60.75 


Decimal 60.75 binary 111100.11 


0.11110011 x 26 


so mantissa = .11110011 

positive so subtract .1l 
giving .01110011 
which in hexadecimal = . 7 3 


exponent = 6 which in binary is 110 
add 128 giving 10000110 
which in hexadecimal = 8 6 


Thus 60.75 is stored as the hex codes 
86 73 00 00 00 


As an example of a real numeric array, note array R stored 
as follows 


RO8CA : 52 00 name 
RO8CC : 48 00 01 00 OD header 
FO8D1 : 00 00 00 00 00 R(0)=0 
FO8D6 : 81 00 00 00 O00 R(1)=1 
RO8DB : 82 00 00 00 00 R(2)=2 
BRO8EO : 82 40 00 00 OO R(3)=3 
BFO8E5 : 83 00 00 00 O00 R(4)=4 
BFO8EA : 81 80 00 00 00 R(5)=-1 
BFOSEF : 82 80 00 00 00 R(6)=-2 
BOS8F4 : 82 CO 00 00 O00 R(7)=-3 
ROS8F9 : 83 80 00 00 O00 R(8)=-4 


BOS8FE : 89 64 00 00 00 R(9)=456 

F0903 : 7F 60 00 00 00 R(10)=0.4375 
BFO0908 : 80 CO 00 00 00 R(ii3=-0.75 
#090D : 91 00 00 80 00 R(12)=65537 
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In the normal header convention we see that it is a one- 
dimensional array (#01) with 13 elements (0D). Since real 
numbers are in the array then five-byte blocks are used, the 
first being the exponent and the remaining four being the 
mantissa, with the same properties as single-valued var- 
lables. It is unnecessary to look at all the elements - 
consider R(9), R(10) and R(11l) 


R(9) = 89 64 00 00 00 


Exponent in excess 128 form = #89 
= decimal 137 
Subtract 128 = 9 


Mantissa is .64 00 00 00 
which in binary is .011001 


It starts with 0 indicating it is positive so add original 
0.1 giving .111001 


So number is 0.111001 x 2? 
= 111001000 
= decimal 456 


R(10) = 7F 60 00 00 00 
Exponent in excess 128 form = #7F 
= decimal 127 
Subtract 128 = -l 


Mantissa is .60 00 00 00 
which in binary is .0Oll 


It starts with 0 indicating it is positive so add original 
0.1 giving .111l 


So number is 0.111 x 271 
= 0.0111 
= decimal 0.4375 


R(11) = 80 CO 00 00 00 
Exponent in excess 128 form = #80 
= decimal 128 
Subtract 128 = 0 


Mantissa (without first 0.15) is .c0O 00 00 OO 
which in binary is .ll 


It starts with 1 indicating it is negative, so there is 
nothing to add. 


So number is -0O.ll x 20 
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-0.11 
decimal -0.75 


Strings 


The one remaining data structure to consider is character 
strings. The variable CC$ is defined in line 20 and is 
stored thus 


#0865 : 43 C3 name 
HO867 : 04 length 
#0868 : 3D O05 pointer 
HO86A : O00 O00 not used 


The first character of the name is stored as its ASCII code 
while the second has #80 added to it. The length byte shows 
the number of characters in the string. The pointer points 
to a position in memory where the string is stored: in this 
case CC$ holds "WORD" as defined in line 20, so the pointer 
holds address #053D, the place in the program area where the 
characters “WORD" appear. If the program altered CC$ then a 
memory area outside the program and data area would be used 
to store the new value and the pointer would change accord- 
ingly. 


Finally we analyse the string array NAM$, defined in lines 
60 and 65 of the program 


#0912 : 4E Cl name 

#0914 : 19 00 O01 00 06 header 

#0919 : 00 length of NAMS$(0) 

HO91A : 00 00 pointer to NAMS(0) 
HO91C : 04 length of NAMS$(1) 

HO91D : 09 06 pointer to NAMS(1) 
HO9IF : 09 length of NAM$(2) 

#0920 : OE 06 pointer to NAM$(2) 
#0922 : 00 length of NAMS$(3) 

#0923 : 18 06 pointer to NAMS$(3) 
#0925 : Ol length of NAM$(4) 

#0926 : 19 06 pointer to NAMS$(4) 
#0928 : 06 length of NAMS(5) 

#0929 : 1B 06 pointer to NAMS$(5) 


The header shows this to be a one-dimensional array (01) 
with six elements (06). NAMS(0) is undefined in the program 
so its length is zero and the pointer also equals zero. 
Contrast this with NAM$(3) which is defined as null - it has 
length O but the pointer indicates where in the program is 
was set to null. The remainder of the elements follow the 
normal pattern. 
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SECTION FIVE 
THE ORIC-1 ROM 


This section is intended to give the reader insight into the 
workings of the Read-Only Memory chip which controls the 
Oric-l. It is particularly intended for those with some 
knowledge of 6502 assembly language, but readers without 
this background may also benefit since explanation is in- 
cluded on using ROM routines or data values from BASIC prog- 
rams. 


5.1 INTRODUCTION 
Function of the ROM 


The 6502A microprocessor at the heart of the Oric-l responds 
to instructions in binary machine code. Since this code is 
awkward to learn and program in, a translator is provided so 
that the Oric-l owner can give instructions in BASIC. This 
translator is held on a ROM chip, which also holds routines 
to handle the Oric-l‘'s general operation. The ROM occupies 
memory addresses KC000 to HBFFFF, and in fact this area is 
Overlaid onto RAM (Random Access Memory) and can be eff- 
ectively blotted out by appropriate external control signals 
from the expansion bus. 


Contents of the ROM 


The ROM itself contains program routines and data. The 
routines are in 6502 machine code, and the majority of 
Section 5.3 lists the ROM in 6502 assembler, a mnemonic 
equivalent of machine code. For a complete understanding of 
the ROM, knowledge of this language is required and the 
reader is referred to the many books on the subject (eg. 
Rodnay Zaks's “Programming the 6502" published by Sybex). A 
summary of 6502 assembler appears in Appendix 3. The data 
in the ROM consists of such items as definition of keywords, 
system messages, and character specifications. 


Addresses Used by the ROM 
The ROM routines use several memory locations outside the 
ROM memory area to store details on the current state of the 


Oric-l. Many of these locations can be usefully PEEKed or 
POKEd from BASIC programs, as is shown in Section 5.2. 


5.2 MEMORY ORGANISATION 

Pages 
The 6502A microprocessor considers its memory in blocks of 
256 locations known as pages. A 48K Oric-l actually has 64K 
of RAM, 16K of which is overlaid by the ROM - so there are 
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256 pages of memory present. A 16K Oric-l has 128 pages. 
The addresses referred to in this section apply to a 48K 
machine - for 16K machines subtract #8000 from addresses, 
apart from the ROM area which is the same. 


Memory Contents 


All addresses can be examined using simple BASIC routines. 
An address may contain one of three types of information: 


(i) an ASCII character code 
(ii) a binary value 
or (iii) a machine-code instruction 


Types (i) and (ii) may be displayed by a short program like 
the one listed below. Type (iii) requires translation of 
memory contents into 6502 assembly language: this process of 
disassembly is more complex - a disassembler program was 
used to produce the listing of Section 5.3. 


Displaying Memory 


The following program requires a start address to be input 
as well as an indicator showing whether memory contents are 
to be shown as characters or hexadecimal values (hexadecimal 
is a useful shorthand for binary). Memory contents are 
displayed in 64-byte blocks, and the user may opt to stop 


(by entering 'S') or continue (by any other entry) after 
each block. 


1Q@ CLS:INPUT "Start address "355 

2@ INPUT “Hex (1): or Character (2) displ 
ay "30 

30° HX=C(D=1):A1=S 

30 REPEAT 

40 C=@:REPEAT 

5Q@ H$=HEX$CA1) > XIND=-1 

68 GOSUB 58d 

7Q PRINT:PRINT H$35" 3° 5 

82 FOR A=Al1 TO Alt+?7 

9@ P=PEEK(A) 

108 IF HX THEN GOSUB 208 ELSE GOSUB 300 
118 PRINT " ";3H$; 

12@ NEXT A 

125 Al=A1+8:C=Ctr1] 

130 UNTIL C=16 

135 PRINT:PRINT:PRINT “Press S to stop; 
any other key to con-tinue" 

140 GET K$ 

15@ UNTIL K$="S" 

168 STOP 

200 H$=HEX$C(P):GOSUB 5S8@Q:RETURN 
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388 H$=CHR$CP):IF H$<" " OR H$>"}" THEN 
H$="," 

3198 RETURN 

298 L=LENCH$) 

918 H$="00"+RIGHT$CH$,L-1) 

5328 HS=2 

5930 IF XIND THEN HS=4:H$="00"+H$ 

5948 H$=RIGHT$CH$,;HS) 

398 XIND=0 

968 RETURN 


The program may be used to display any memory area, and the 
material in this chapter shows the sections best displayed 
as characters. We now consider some of the RAM locations of 
the Oric-l, in sequence, explaining their meaning and use- 
fulness (to the extent that the author has so far dis- 
covered!). Addresses below are specified in hexadecimal and 
where individual bits are referred to they are numbered from 
1 (leftmost bit) to 8 (rightmost bit). It may be helpful to 
study this section in conjunction with the Oric-l Memory Map 
given in Appendix A of the BASIC PROGRAMMING MANUAL. 


Page 0 


Page 0 holds frequently used items of data on most 6502- 
based systems as there are a set of instructions specifical- 
ly designed for referring to this page. 


0012 & 0013 CURBAS and CURBAS+1 (see machine-code routine 
example in Oric-l BASIC PROGRAMMING MANUAL, 
page 128). Used by the PRINT routine to deter- 
mine where to display information. 


001B & 001C holds address jumped to when the current 
BASIC program stops. Useful for LIST-protec- 
tion - see DOKE in Section 2. 


OOlF & 0020 GCL and GHC used by the BASIC interpreter (see 
MANUAL page 128) - not particularly useful. 


0021 - 0023 contains a JMP instruction to the start of the 
machine-code subroutine set by DEF USR 


0031 determines the number of characters per line to 
be printed via LPRINT: set the address to con- 
tain a number eleven more than the required 
figure eg. POKEing in 51 gives 40 characters 
per printed line 


0035 - holds the cassette file name currently in use, 
terminated by 00 


OO5F & 0060 holds the start address for cassette CSAVE 
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0061 & 0062 
0063 


0064 


0067 


OO9A & 009B 
009C & 009D 


OOA2 & O0A3 


holds end address for cassette CSAVE 


specifies whether a cassette is to RUN auto- 
matically (=1) or not (= 0) 


specifies whether cassette file is in BASIC 
(=0) or machine-code (=1) 


specifies speed of cassette file (0O:fast or 
1:slow) 


holds start address of BASIC program 
holds end address of BASIC program 


holds the value set by the HIMEM instruction 


Page l is reserved for the stack, an area which grows as 
required and stores data on the basis of Last In First Out. 


Page 2 


Page 2 of memory holds further system variables used by the 


ROM. 


020C 


0215 


0219 
O21A 


022B - 0230 


0268 


0269 


026A 


consists of a number of flags which indicate 
various settings eg. the first bit indicates 
whether the Oric-l is in upper-case (=l) or 
lower-case (=0) 


contains the value set by the PATTERN instruc- 
tion 


holds the HIRES x-axis cursor position 
holds the HIRES y-axis cursor position 


holds a sequence of three instructions executed 
when the RESET button is pressed: 


JMP F430 
ORA (00,X) 
RTI 


RESET may be disabled by changing this se- 
quence, so that for example 022B contains RTI 


holds the row position of the cursor in low- 
resolution modes 


holds the column position of the cursor in low- 
resolution modes 


holds a set of flags, which if 1 indicate the 
following: 
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bit 2: double height 

bit 3: protected column far left 
bit 4: ESC character sequence 
bit 5: keyclick off 

bit 6: printer on 

bit 7: screen off 

bit 8: cursor off 


Several of these are very handy: since the 
above are all available from the keyboard as 
toggles (see Oric-l MANUAL Appendix B), the 
programmer cannot know whether they are on or 
off without examining this location. See AND 
in Section 2 for an example of how it can be 
used. 


026B holds PAPER value for screen, ie. the attribute 
automatically placed in column 1 of all rows 


026C holds INK value for screen, ie. the attribute 
automatically placed in column 2 of all rows. 


026D & 026E holds the start address of the display file. 
This may be changed to prevent upper portions 
of the screen from scrolling 


026F holds the number of text lines displayed on the 
screen. This may be changed to prevent lower 
portions of the screen from scrolling 


O2F5 & O2F6 holds the start address of the ! routine 


O2FC & O2FD holds the start address of the & routine 


Page 3 onwards 


Page 3 contains physical input/output addresses and page 4, 
between 0400 and 0420, is reserved for machine-code routines 
entered by the user. The start of Page 5 marks the start of 
the memory area which holds the current BASIC program and 
its accompanying data. As the understanding of this region 
is crucial to good programming, Section 4 is devoted to 
describing it. 


Character Sets 


The program/data area is followed by the definition of the 
Oric-l's character sets. This starts at B400 in low-resol- 
ution modes or at 9800 if HIRES is in use. The standard 
character set consists of 128 blocks of eight bytes for each 
of the ASCII characters 0 to 127. The binary patterns of 
these blocks define the shape of the characters, for example 
the per cent sign shown in the figure on the following page. 
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Notice that the first two bits are always zero - the Oric-l 
uses an eight-by-six grid for its character shapes. However 
since characters 0 to 31 are non-printing, no shape can be 
defined for them, and thus the first thirty-two blocks of 
eight bytes are all set to a dummy value (#55). 


Address Contents 
B528 00110000 
B529 00110000 
B52A 00000100 
B52B 00001000 
B52C 00010000 
B52D 00100110 
B52E 00000110 
B52F 00000000 


It is the character set memory area that is altered when the 
programmer wishes to define his own characters. 


The alternate character set follows immediately after the 
standard character set - from address 9C00 in HIRES or B800 
in low-resolution. Alternate characters consist of Prestel- 
style blocks, and once again the first thirty-two blocks are 
unused. Subsequently alternate characters from ASCII 32 
onwards are defined in a similar way to that shown for 
standard characters above, but this time the full eight bits 
are used for expressing the shapes. 


Two major memory areas remain: the screen display area and 
the ROM itself. The screen is discussed fully in Section 3, 
while the ROM is considered below. 


5.3 THE ROM 


As already discussed, a memory location can hold several 
different types of information. In the listing of the Oric- 
1 ROM that comprises the vast majority of this section, the 
ROM contents may be shown as: 


(i) characters - for messages and keywords 
(ii) assembly language instructions - for the ROM rou- 
tines 
(iii) binary patterns - for character definition 
or (iv) hexadecimal numbers - for addresses and other va- 
lues 


Data Tables 
Naturally the ROM mainly consists of assembly language rou- 


tines, but there are the following major exceptions: 
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COEA - C2AA BASIC keyword table 
C2AC - C3C8 System messages table 
FC70 - FF70 Character set definition 


The first two tables simply list keywords and error messages 
with the last character having its highest order bit set to 
1 to indicate the end, eg. the keyword REM is stored in the 
first table (starting at byte C169) as 


52 45 CD 


Now 52 is the ASCII code for R, 45 the code for E but 4D is 
the code for M. However since M is the last character of 
the keyword it has its highest order bit set to l, giving CD 
- the same as adding hex 80 to it, in fact. Note that 
keywords are listed in storage code sequence, from 80 (END) 
to F7 (GO). 


The character definition area of the ROM is the section 
which is written into the appropriate area of RAM to show 
the shapes of ASCII characters. Only the standard character 
set appears in ROM since the Prestel alternate characters 
follow a logical sequence and are written to RAM by ROM 
routines. To save space only the printable ASCII characters 
are specified ie. ASCII codes 32 to 127. 


ROM Routines 


To say that getting to know the Oric-l ROM is a complex and 
obscure task is a gross under-statement. Messrs Halford and 
Brown may have been sufficiently forthcoming to identify 
themselves as the authors (see bytes EB8D - EBB4 below) but 
they certainly do not give much else away! 


There are however a few ROM routines that the BASIC program- 
mer can use directly (using CALL followed by the routine 
address), and more are naturally available to the machine- 
code user. Attention is drawn to the following selection, 
and then the reader may use the disassembly below for fur- 
ther experimentation. 


Routine C5F8: gets a character from the keyboard 

Routine CB61: the PRINT routine 

Routine CFDB: synchronisation routine, used prior to output 
Routine D3FD: produces a value from the Y register 


Routine D867: converts a floating point value in the accumu- 
lator to an integer held in bytes 0034 and 0035 


Routine D8D5: converts an integer held in A (high order 
byte) and Y (low order byte) into a floating-point value in 
the accumulator 
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Routine E448: loads a file from cassette tape 
Routine E57B: saves a file on cassette tape 


Routine E6CA: turns off keyboard scanning interrupts - sets 
up VIA chip 


Routine E804: turns on keyboard scanning interrupts - 
clears VIA chip 


Routine F57B: prints a character from the accumulator 
Routine FB03: sounds a keyboard click. Subsequent routines 


give various other sounds eg. FB12 produces a hissing noise, 
FB30 gives a buzz, and FB40 a whine. 


There now follows a listing of the ROM, addresses C000 to 
FFFF. Prefix $ indicates a hexadecimal operand while prefix 
% indicates a binary value. 
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Cooo 
Coos 
C006 
Cao7 
COOB 
CoOO9 
CoOOoA 
COOBR 
Coo 
Coop 
COOE 
COOF 
COLO 
Cot 
Cote 
Cois 
CoO1l4 
CO1LS 
COG 
Ca17 
Cog 
CoO19 
COLA 
CO1H 
Coie 
Co1iD 
COLE 
COLF 
(RO20 
Coe 1 
COL? 
Cons 
COL4 
Cons 
COL6 
CoOR7 
CO28 
Cong 
(SORA 
COPPER 
CoOeC 
COLD 
CORE 
CO2F 
CO aO 
Con 4 
COsB2 
Coss 
(CO. 24 
CO3S 
COS 
COs? 
COB 
CORD 
COlA 
COSK 
Coz 
CoD 
COSE 
(SOF 
CoO4an 
Coat 
(VO42 
COs 
Co44g 
COAS 
COAG 
Cog? 
Cosa 
Cogs 
COA 


4C 39 EA 


4(° 
4o 
C9. 
4 
Cb 
a 
CF 
ES 
LE 
i a) 
CC 
SE 
CC 
DF 
CP 


we 
wt ted 


D9 
15 
DA 
6 
D9 
AR 
D8 
F9 
D9 
1S 
DA 
40 
C8 


mw 


C8 
C8 
COE 
CE 
9 
CA 
(78 
CG 
Fr 
DO 
9 
CC 
FC 
ce 
D1 
CA 
Ho 
CY 
8A 
C9 
“3D 
CA 
LE. 
C9 
QE 
C9 
DF 
C9 
HO 
CA 
al 
EY 
7% 
EG 
Qi 
E9 
AG 
EY 
A 


73 C4 


JMF EAS9 
JMF C475 
RTI 


CO4KB 
CoO4C 
Co4D 
CO4E 
CO4AF 
Cosa 
Cosi 
CoSs2 
Coss 
CoOS4 
Coss 
COS6 
COS7 
Cons 
COS? 
COSA 
COSE 
Cosc 
COSD 
COSE 
COSF 
CO60 
Codi 
CoO62 
C063 
CO64 
CO6S 
CO6S 
CO&7 
OSB 
COP 
CO6A 
CO6ER 


CO6C 


COSD 
(CCO6E 
CO6F 
CO70 
CoO? 1 
CO72 
Coes 
(LO 74 
CoO7S 
CO76 
CO77 
CO78 
CO79 
CO7A 
CO7# 
CoO7C 
CoO7D 
COTE 
CO?7F 
COBO 
Cost 
CoB? 
CoB8s 
CoB4 
Cogs 
COBS 
COR? 
Coes 
CORB9 
COBA 
COG8R 
Cosc 
Coe8D 
COSE 
COBF 
COPD 
COP. 
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E9 
14 
F4 
17 
F4 
iA 
F4 
tt 
F4 
88 
ES 
a8 
ES 
88 
EB 
7c 
ES 
7C 
ES 
7C 
ES 
70 
Ea 
7C 
ER 
7C 
ES 
7c 
ES 
88 
ES 
88 
ES 


cy 
77 
CA 
9C 
D8 
AS 
E7 
DA 
E?7 
OO 
D4 
93 
D8 
60 
CH 
6D 
C9 
7a 
C7 
37 
C7 
BR? 
CC 
Oc 
ES 
ao 
CC 
18 
C7 
DF 
AS 
DF 
a | 
DF 
cae | 


OL) 


'co92 


Co93 
Ca94 
CoO9S 
COIS 
CO97 
CoO98 
CO99 
CO9A 
CO9OR 
Cosc 
Cco9sD 
CO9E 
CO9F 
COA 
COAL 
COAL 
COA 
COA4 
COAS 
COAG 
COA7 
COAB 
CoOAag 
COAA 
COAB 
COAC 
COAD 
COAE 
COAF 
CORO 
CORI 
COR2 
COBRS 
COBR4 
CORRS 
CORG 
COH7 
CORSE 
CORRS 
COBRA 
COBB 
COBC 
CORD 
CORE 
CORF 
CoCo 
Coci 

Coce 
Ccocs 
Coc4 
COCs 
COCS 
Coc? 
CoOCs8 
COC? 
COCA 
COCR 
CoOCC 
COCD 
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Di8A E9 SE : SBC $5B D205 90 B80 : BCC D187 #£x®2D28B Di CE : CMF (CE).Y 
Disc 38 : SEC D207 00 > BRK D28D FO 14 >: KEQ D2AS 
D18D E9 AS : SBC $A5 D208 00 : BRK D28F C8 :  INY 

D18F 60 : RTS D209 00 > BRE D290 Bl CE : LDA (CE),Y 
D190 68 : FLA D20A 20 E2 00 : JSR OOE2 D292 18 :. CEC 

D191 48 : PHA D20D 20 BB CE : JSR CE8R D292 65 CE : ADC OOCE 
D192 C9 F2 : CMP $F2 D210 20 7A CE : JSR CE7A D295 AA : TAX 

D194 DO OD : BNE DIAZ D213 AS DS : LDA OODS D296 CB :  INY 

D196 BA : TSX D215 320 OD : BMI D224 #£«®2+D297 Bi CE : LDA (CE),Y 
D197 BD O2 O1 : LDA O102,X% D?P17 AS DO : LDA OODO D299 65 CF : ADC OOCF 
DI9A C9 CF > CMF $CF D219 C9 90 >: CMF $90 D29BR 90 D7 : KCC D274 
D19C DO OS >: ENE DIAS D21H 90 09 : BCC D226 D29D AD 6B : LDX 6H 
DIVE AI OS : LDA $03 D21D AD OS : LDA $05 D29F 20 AZ 35 : KIT 35A2 
D1AO AO E2 : LDY $E2 D21F AO D2 : LDY $D2 D2AZ 4C 85 C4 : JMF C485 
DIAZ 60 s RTS D221 20 34 DF : JSR DF34 £D2AS AP 78 : LDX $78 
D1A2% AS 9E : LDA O09E D224 DO 7A >: HNE D?AO D2A7 AS 2 : LDA 0027 
DiAS A4 9F : LDY OO9F D226 4C 74 DF =: JMF DF74 DZA9 DO F7 :  HNE D2A2 
D1A7 85 CE : STA OOCE 22 G2 : LDA 0027 D2AB 20 F4 Di : JSR D1IF4 
D1A9 84 CF : STY OOCr 27H OS 29 : ORA OO29 D2AE AS 26 : LDA 0026 
DIAB AS AO : LDA OOAO D22D 48 : FHA D2BO AO O4 : LDY #04 
DIAD A4 Al : LDY OOAIL D22 5 28 >: LDA OO2B D2EB? D1 CE : CMP (CE),Y 
DIAF 85 C9 : STA 00C9 D230 48 : FHA D2EB4 DO E7 : BNE D29D 
DiB1 84 CA : STY OOCA D231 AQ OO : LDY $00 D2B6 4C 43 DX: JIMF D243 
DIB 18 . CLC D233 98 : TYA D2B9 2O F4 D1 : JSR DIF4 
D1IB4 69 07 > ADC $07 D234 48 : FHA D2BC 20 48 C4 : JSR C448 
D1B6 90 O1 H RCC DILE9 D235 =| BS : LDA OOBRS DZRF AD OH : LDA $00 
D1B8 C8 :  INY D237 48 : FHA D2C1 AB : TAY 

DIB9 B85 C7 : STA OOC7 D2z8 AS B4 >: LDA OOR4 D2C2 85 El : STA OOE1 
DIBR 84 C8 : STY oocsB D22A 48 : FHA D2C4 AZ O5 : LDX $05 
DIBD 20 F8 Ca: JSR C3F8 23B 20 OA DP: JSR D20A D2C6& AS B4 : LDA OOB4 
DiCO AS C7 : LDA OOC7 23E 68 : FLA D2CB 91 CE : STA (CE).Y 
DiC2 A4 C8 : LDY O0CB 2aF 85 B4 : STA OOR4 D2CA 10 O1 : BFL D2CD 
Dic4 C8 :  INY D241 68 : FLA D2CC CA : DEX 

DICS 85 9E : STA OO9E D242 85 BS : STA OORS 20D Ce :  INY 

DiC7 84 9F - > STY OO9F D244 68 : FLA D2CE AS BS : LDA OORS 
D1C9 AO OO >: LDY $00 D245 A8 : TAY D2DO 91 CE : STA (CE),.Y 
DICK AS B4 : LDA OOB4 D246 BA : TSX D2D2 10 O2 : HPL D2D6 
DICD 91 CE > STA (CE).Y D247 BD OF O1 : LDA 0102,X D2D4 CA : DEX 

DiCF C8 :  INY D24A 48 > PHA D2pD5 CA : DEX 

D1DO AS BS : LDA OOHRS D24KR HD a1 O1 : LDA O©101.,xX DESD6 B46 EO : STX OOEO 
DiD2 91 CE 2 STA (CE),Y D24E 48 : FHA D2D8 AS 2 : LDA 9026 
DiD4 AI OO : LDA $00 D24F AS D= : LDA OODs D2DA CB :  INY 

DiDé C8 :  INY 251 9D Oo2 O1 : STA 0102,xX D2DE C8 :  INY 

D1D7 91 CE : STA (CE).Y D254 AS D4 : LDA OOD4 D=DC C8 >  INY 

DiD9 C8 :  INY D256 9D 01 O01 +: STA O101,X D2DD 91 CE : STA (CE),Y 
DiIDA 91 CE : STA (CE).Y D259 C8 : INY D2DF AZ OF : LDX $0OB 
DiDC C8 : INY D25A 20 EB OO: JSR OOE8 DPE1 AY OO : LDA $00 
DiDD 91 CE : STA (CE),Y D25D C9 2 > CMF $2C D2ES 24 27 : BIT 0037 
DiIDF C8 :  INY D2SF FO D2 >: HEO D233 D2E5 SO 08 : BVC D2EF 
DIEO 91 CE 2 STA (CE),Y D261 84 2 >: STY 0026 D2E7 68 >: FLA 

DiE2 C8 :  INY 262 20 DS CF : JSR CFDS D2ZEB 18 f. WGbe 

D1E3 91 CE : STA (CE).Y D266 68 : FLA D2E9 69 1 >: ADC $01 
DIES AS CE : LDA OOCE D267 85 28 : STA ©0028 DZEBR AA : TAX 

D1E7 18 FCG D269 48 >: FLA DZEC 68 >: FLA 

DIE8 69 O02 : ADC $02 D26A 85 29 : STA OUR9 D2ED 69 OO : ADC #00 
D1EA A4 CF : LDY OOCF D26C 29 7F : AND 7F DEF CB :  INY 

DIEC 90 1 : HCC DIEF D26E 85 27 : STA 0OD7 D2Fa 91 CE : STA (CE).Y 
DiEE C8 : INY D270 AS SE >: LDX O09E D2F2> C8 :  INY 

DiIEF 85 Bé : STA OOBS6 272 AS OF : LDA OO9F D2F2 BA : TXA 

DiF1l 84 H7 : STY OOB7 D274 86 CE : STX OOCE D2F4 91 CE : STA (CE).Y 
DiFS 60 >: RTS D276 85 CF : STA OOCF D2F6 20 AS D2 =: JSR D3AS 
D1IF4 AS 26 - LDA O026 D278 CS Al : CMF OOA1 DZF9 86 EO : STX OOEO 
DIF&é OA : ASL ACC D27A DO 04 : BNE D280 D2FR 85 Fl : STA OOE1 
DIF7 69 OS > ADC $Q5 D27C E4 AQ > CFX OOAQ D2FD A4 91 : LDY 0091 
DIF9 65 CE : ADC OOCE D27E FO 39 : KEO D2R9 D2FF C6 26 : DEC 9026 
D1IFB A4 CF : LDY OOCF 2B0 AO OO : LDY #00 D201 DO DC : BNE D2DF 
DIFD 90 O14 : ECC D200 D282 H1 CE : LDA (CE),Y D303 65 C : ADC ooCB 
DiFF C8 : INY D284 C8 :  INY D205 &8O SD : BCS D264 
D200 85 C7 : STA 00C7 D285 CS #4 > CMF OOBR4 307 85 C8 : STA OOCS 
D202 84 CB : STY OOC8 D287 DO 06 : HNE D26F D209 AB : TAY 

D204 60 : RTS D289 AS BS : LDA OORS D2O0A BA : TXA 
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F4DS 
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O2 OF 
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F63E 
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F440 
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F65D 
F460 
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F66S 
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F66E 
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F46D 
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F6B7 
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F492 
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ROL 
ROL 
ROL 
ROL 
ROL 
ROL 
ROL 
EOR 
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JMP 
LDA 
EOR 
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JSR 
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STY 
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DEX 
TXA 
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STY 
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DE X 
CF X 
BNE 
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LDA 
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LDA 
LDX 
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O2Z6A 
026A 
F&CC 
O20C 
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O20C 
O21F 
F6SA 
F729 
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F6EO 
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F6ES 
F6E8 
F6EA 
F6ED 
F6EE 
F6FO 
F&F 1 
F6F4 
F6FS 
F46F8 
F&F9 
FOFA 
F6FD 
FOFE 
F&FF 
F700 
F7Q2 
F703 
F708 
F709 
F70C 
F7OD 
F710 
F711 
F714 
F714 
F719 
F71A 
F71D 
F71E 
F721 
F722 
F725 
F728 
F729 
F72C 
F72E 
F730 
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F735 
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JSR 
STA 
STY 
TXA 
JSR 
STA 
STY 
JSR 
LDA 
JSR 
LDA 
JSR 
CLI 
RTS 
JSR 
STA 
STY 
LDY 
LDA 
STA 
DEY 
BFL 
L.DY 
L.DA 
STA 
LDA 
INY 
STA 
RTS 
JSR 
CLC 
ADC 
FHA 
TYA 
ADC 
TAY 
PLA 
RTS 
LDY 
STY 
STA 
ASL 
ROL 
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ROL 
CLC 
ADC 
BCC 
INC 
ASL 
ROL 
ASL 
ROL. 
ASL 
ROL 
LDY 
RTS 
LDA 
BPL 
_DA 
LDY 
JMF 
LDA 
LDY 
LDX 
JSR 
RTS 
PHA 
PHF 
TYA 
PHA 


FOF 1 
9202 
O208 


F6F1 
Q200 
O201 
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O26B 
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F7CE 
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$F6 
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F746 
F743 
F74A 
F74D 
F74F 
F7S4 
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F784 
F7&@8 
F799 
F754 
F7SC 
F7SE 
F740 
F763 
F765 
F747 
F749 
F74H 
F76D 
F7&F 
F772 
F774 
F773 
F776 
F779 
F77C 
F77E 
F7at 
F784 
F786 
F7R9 
FE 7aC 
FUSE 
F790 
F7 OO 
F793 
F798 
F799 
FI9A 
F79R 
F79C 
F79D 
F79E 
F79F 
F7AS 
F7A4 
F7A6 
F7A9 
F 7A 
F7AC 
F7AAD 
F7RO 
FUVES 
F7ES 
F7ER7 
F7E9 
F7EC 
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F7C2 
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TXA 
FHA 
CLD 
CMF 
BCC 
LDA 
AND 
REO 
LDA 
AND 
REQ 
TXA 
SEC 
SRC 
RMI 
AND 
JSR 
LDA 
BNE 
LDA 
BFL. 
CFX 
REQ 
JSR 
BEOQ 
FLA 
FHA 
JSR 
IMF 
LDA 
JSR 
JIMP 
LDA 
JSR 
JSR 
REO 
LDA 
JSR 
LDA 
JSR 
FLA 
TAX 
FLA 
TAY 
PLF 
PLA 
RTS 
LDA 
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BNE 
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AND 
RTS 
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F767 
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F7EA 
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F7EF 
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F7FS 
F7F6 
FI7F7 
FIF9 
F7FA 
F7FD 
F7FF 
FBOO 
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FRO2 
FBOS 
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F807 
FBOA 
FBOC 
F8OD 
FOF 
Fail 
F812 
F813 
F815 
FA18 
Fa19 
F81A 
FRLE 
FIC 
FR1D 
F81E 
FB20 
Fe21 
FA24 
FBD6 
FB27 
Fa29 
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FBDE 
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F8zS 
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LSR 
ROR 
STA 
LDY 
LDA 
AND 
ORA 
STA 
RTS 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDY 
STY 
LDA 
JSR 
RTS 
LDY 
FHA 
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STA 
INY 
FLA 
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(12),Y 
$7F 
0265 


(12),Y 


$OO 
OOOC 
$R9 
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TXS 
CLI 
CLD 
LDX 
LDA 
STA 
DEX 
BFL. 
JSR 
FHF 
JSR 
PLP 
REQ 
LDY 
LDX 
JSR 
INY 
CFY 
BNE 
IMF 


ORA 
DEY 
SED 
JMF 
JSR 
LDA 
LDX 
JSR 
JSR 
JSR 
JSR 
L DX 
JSR 
JSR 
LDA 
STA 
RTS 
FHA 
TXA 
FHA 
LDA 
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STA 
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F8E9 
FRER 
FREE 
FEFO 
FBFS 
FFG 
FaFB 
F8FR 
FEFE 
F900 
F903 
F906 
F908 
F9OA 
F9OC 
FIOE 
F911 
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STA 
LDA 
STA 
LDA 
STA 
FLA 
RTS 
FHA 
LDA 
BNE 
LDX 
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LDA 
AND 
STA 
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STA 
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700011100 
700000010 
700111100 
ZLOQVQDOOOIO 
%000 10000 
700010000 
700111100 
700010000 
ZO00L 0000 
ZQO0010010 
Z00001 100 
ZOOON0000 
Z00000000 
ZOOLO0OO1LO 
ZOOLOO0O10O 
ZOOLOOO1LO 
790100110 
ZOOOLLO1O 
ZOQOONOIOQIE 


ZO001LO0010 
ZOQOLO0010 
LOOLOOOLO 
%OOOLOLOO 
%O0001 000 
7QO0000000 


ZOOLOOOLO 
ZOOLOOO01LO 
%ZOOLO1L0O10O 
700101010 
ZOO0L1L0110 


FF32 
FF32 
FF34 
FF35 
FF26 
FFR7 
FF38 
FF39 
FF3A 
FF SE 
FF3C 
FF3D 
FF3E 
FFF 
FF40 
FF41 
FF42 
FF43 
FF44 
FF45 
FF46 
FF47 
FF48 
FF49 
FF4A 
FF4E 
FF4C 
FF4D 
FFGE 
FF4F 
FFSO 
FFS1 
FFS2 
FFS2 
FFS4 
FFS5 
FF56 
FF57 
FF58 
FFS9 
FFSA 
FFSE 
FFSC 
FF5D 
FFSE 
FFSF 
FF6O 
FF41 
FF6? 
FF63 
FF64 
FF45 
FF 66 
FF67 
FF6B 
FF69 
FF6A 
FF OR 
FF6C 
FF 4D 
FF OE 
FF6F 
FF7O 
FF71 
FF72 
FF73 
FF74 
FF75 
FF76 
FF77 
FF78 


FP bP 
ae 


14 
Og 
14 


22 


oo 
are) 
a0 
22 
ft ae) 
a he 
Ft a? 


1E 
a2 
iC 
OO 
[ert@) 


= 
2» 


O4 
op 
10 
SE 
OO 
OE 
18 

18 
20 
18 
18 
OE 
are) 
OB 
og 
os 
Oo8 
08 
08 
o8 
og 
38 
oC 
oc 
Ob 
oc 
oc 
38 
Oo 
15 


aa 


* 
a 


id 
uv 


2A 
15 
3F 
=F 
SF 
SF 


A od 
ZF 
27 
EA 
ED 
ER 
20 
aa 
F9 


“ 


FE 


oe 88 os 88 a2 Ss ge 8RlUee ele 88 lee oe 


ss a” as as aa as Li as es un af id os 


Z00100 
7000104 
ZOO00N8 
%900 10 
7.00100 
%000000 
Z00000 
ZQOOOOM 
7.001006 
7001006 
%001000 
ZO00111 
7.000000 
ZOOOL LY 
ZO0O0000 
ZO00000 
ZOOL 
%000001 
%000010 
%000 100 
ZOOL 
7000000 
700001} 
%0001 16 
Z0001 If 
ZOO 1100 
LOOOLLG 
%000110 
ZOOOOL 
7.000000 
ZOOOOIN 
ZOOOOLN 
LOOOOLY 
ZOOO01LY 
ZO00010 
7900010 
ZOOOO10 
Z9000 10 
ZOOLLLY 
ZOOOOI 
ZOOOOL LL 
ZQOOOOO!! 
LOOOO LL 
7001114 
%ZQO00000 
ZOO1LO10) 
ZOOOLOL 
7.001010 
%Z0001016 
7.001010) 
ZOOO1LOL 
ZOOLOLO 
ZOOOLOL 
ZOOL 
ZOOVLIL 
ZOOL 
ZOOL 
ZOOL 
ZOO1111] 
ZOOL 
ZOOLLLY 


FF79 


FF7A 3 


FF7B 
FF7C 
FF7D 
FF7E 
FF7F 
FFBO 
FFBL 
FFB2 


FFBS & 


FF84 
FFAS 
FFB4 
FF87 
FFaB 
FFB9 
FFBA 
FFBR 
FFAC 
FF8D 
FFBE 
FFBF 
FF90 
FF91 
FF92 
FF9S 
FF94 
FF9S 
FF96 
FF97 


FF9B 


FF99 

FF9A 

FFOB 
FF9C 
FF9D 
FF9E 
FFOF 
FFAO 
FFA1 

FFA2 
FFAS 
FFA4 
FFAS 
FFAG 
FFA7 
FFAS 
FFA9 
FFAA 
FFAB 
FFAC 
FFAD 
FFAE 
FFAF 
FFBO 
FFBt 

FFB2 
FFBS 
FFB4 
FFBS 
FFBS 
FFB7 
FFBB 
FFB9 
FFBA 
FFBB 
FFBC 
FFBD 
FFBE 
FFBF 


F4 


39 
tan) 
“ 


E? 
E8 
EC 
aS 
EF 
E7 
30 
F4& 
E& 
34 
2D 
OR 
FO 
ES 
ao 
Oo 
(a18) 
00 
oOo 
oo 
a0 
oOo 


1H 
FA 
oOo 
08 
TF 
Et 
Oop 
F8 
Fil 
32 
3C 
OA 
SD 
oOo 


“Z 
> 


E4 
ES 
Ze 
og 
SH 
Fz 
3D 
26 
4A 
4D 
45 


” 
a 


oo 


9 


we 
~ 


4E 
54 
SE 
28 
3c 
49 
48 
4c 


FFCO 
Fret 
FRoS 
FFCS 
FFC4 
FFES 
FFCS& 
FEC 
FFC8 
FEC? 
FFCA 
FFCH 
FFCC 
FFECD 
FFCE 
FPCE 
FFDO 
FFD1 
FFD2 
FFDS 
FFD4 
FEDS 
FFDS 
FFD? 
FFD8 
FED? 
FFDA 
FFDE 
FFDC 
FFDD 
FFDE 
FF DF 
FFEO 
FFE 
FFE? 
FEES 
FFE4 
FFES 
FFES 
FFE7 
FFE8 
FFE9 
FFEA 
FFES 
FFEC 
FFED 
FFEE 
FFEP 
FFFO 
FFET 
FFF2 
PREPS 
FFF4 
FFES 
FFFG 
EER? 
FFFS 
FEF? 
FFFA 
FFFR 
FFFC 
FFFD 
FFFE 
FFFF 


cand 
aw 


32 
42 
=A 
SE 
4F 
47 
29 
36 
46 
24 
IF 
OH 
oO 
45 
oF 
are) 
ere) 
are) 
Oo 
ore) 
Oo 
are) 
Oo 
1B 
5 
Oo 
Og 
7F 
41 
OD 


wv 


= 
re) 


40 
7C 
Of 
7D 
Oo 


= 
ao 


44 
43 
OF 
7H 
57 
2H 
AO 
EB 
H7 
E7 
BA 
A4 
AS 
AO 
BO 
C4 
2B 
O2 
2D 
F4 
28 


O2 
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APPENDIX ONE 
KEYWORDS & STORAGE CODES 


Some of the keywords listed below do not appear in the Guide 
of Section 2: this is because they are invalid and their 


presence in the ROM is redundant. 


ABS 
AND 
ASC 
ATN 
AUTO 
CALL 
CHAR 
CHRS$ 
CIRCLE 
CLEAR 
CLS 
CLOAD 
CONT 
cos 
CSAVE 
CURMOV 
CURSET 
DATA 
DEEK 
DEF 
DIM 
DOKE 
DRAW 
EDIT 
ELSE 
END 
EXP 


EXPLODE 


FALSE 
FILL 
FN 
FOR 
FRE 
GET 
GO 
GOSUB 
GOTO 
GRAB 
HEXS 
HIMEM 
HIRES 
IF 
INK 
INPUT 
INT 


INVERSE 


KEYS 


D8 
D1 
EC 
E5 
C7 
BF 
BO 
ED 


LEFTS$ 
LEN 
LET 
LIST 
LLIST 
LN 

LOG 
LORES 
LPRINT 
MID$ 
MUSIC 
NEW 
NEXT 
NORMAL 
NOT 

ON 

OR 
PAPER 


PATTERN 


PEEK 
PI 
PING 
PLAY 
PLOT 
POINT 
POKE 
POP 
POS 
PRINT 
PULL 
READ 


RELEASE 


REM 
REPEAT 


RESTORE 


RETURN 
RIGHTS 
RND 
RUN 
SCRN 
SGN 
SHOOT 
SIN 
SOUND 
SPC 
SQR 
STEP 
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F4 
E9 
96 
BC 
8E 
EO 
E8 
89 
8F 
F6 
A8 
Cl 
90 
83 
CA 
B4 
D2 
Bl 
AE 
E6 
EE 
A6 
A9 
87 
F3 
B9 
86 
DB 
BA 
88 
95 
AO 
9D 
8B 
9A 
9C 
F5 
DF 
98 
F2 
D6 
A3 
E3 
A7 
C5 
DE 
CB 


STOP 
STR$ 


TAN 
TEXT 
THEN 


TROFF 
TRON 
TRUE 
UNTIL 
USR 


WAIT 
ZAP 


APPENDIX TWO 
ASCII CHARACTER CODES 


dec hex char dec hex char dec hex 

(* indicates a toggle) 48 30 0 98 62 
49 31 1 99 63 

0 OO Null 50 32 2 100 64 

1 01 CTRL A 51 33 3 101 65 

2 02 52 34 4 102 66 

3 03 Interrupt 53 35 5 103 67 

4 04 Double height * 54 36 6 104 68 

5 05 55 37 7 105 69 

6 06 Keyclick * 56 38 8 106 6A 

7 07 Bell 57 39 9 107 6B 

8 08 Backspace 58 3A ; 108 6C 

9 09 Cursor Right 59 3B ; 109 6D 

10 OA Line Feed 60 3c < 110 6E 

ll OB Cursor Up 61 3D = 111 6F 

12 OC Clear Screen 62 3E > 112 70 

13 OD RETURN 63 3F ? 113 70 

14 OE Clear Row 64 40 @ 114 71 

15 OF 65 4l A 115 72 

16 10 Printer * 66 42 B 116 73 

17) «(11 Cursor * 67 43 Cc 117 74 

18 12 68 44 D 118 75 

19 13 Screen * 69 45 FE 119 76 

20 14 # +4Caps * 70 46 F 120 77 

21 15 71 #47 =#«G 121 78 

22 16 72 48 H 122 79 

23 17 73 «449 I 123 7A 

24 18 Cancel line 74 4A J 124 7B 

25 19 75 4B K 125 7C 

26 #4JA 76 4C L 126 7D 

27 1B ESC 77 4D M 127 7E 

28 1c 78 4€E N 

29 1D Inverse * 79 4F O 

30 JE 80 50 P 

31 IF 81 51 Q 

32 20 space 82 5§2 R 

33) “Zk ! 83 53 S 

34 22 * 84 54 T 

35. 23 fa 85 55 U 

36 24) $ 86 56 V 

a7. 20 % 87 57 WwW 

38 2606 & 88 58 x 

39 27——COS 89 59 Y 

40 28 ( 90 5A 2 

41 29 ) 91 5B f{ 

42 2A * 92 5c \ 

43 2B + 93 5D ] 

44 2C ’ 94 5E * 

45 2D - 95 5F £ 

46 2E ° 96 60 6 

47 2F / 97 61 a 


char 


Wee NM KH ESC CHR NQUTUOS Se wUr TQ MOAN S 


DEL 


APPENDIX THREE 
6502 MNEMONIC CODES 


Hex Inst Hex Inst Hex Inst Hex Inst 
00: BRK 51 EOR-1.Y A5 LDA-0 ED SBC 
01 ORA-I.X_ 55 EOR-0.X A6 LDX-0 EE INC 
05 ORA-OP 56 LSR-0.X A8 TAY FO BEQ 
06 ASL-OP 58 CLI A9 LDA-$ Fl SBC-I.Y 
08 PHP 59 EOR.Y AA TAX F5 SBC-0.X 
09 ORA-$ 5D EOR.X AC LDY F6 INC-0.X 
OA ASL-A 5E LSR.X AD LDA F8 SED 
OD ORA 60 RTS AE LDX F9 SBC.Y 
OE ASL 61 ADC-I.X BO BCS FD SBC.X 
10 BPL 65 ADC-0 Bl LDA-1.Y FE INC.X 
1l ORA-I.Y 66 ROR-O B4 LDY-0.X 

15 ORA-0 .X 68 PLA B5 LDA-O .X 

16 ASL-0.X 69 ADC-$ B6 LDX-0.Y 

18 CLC 6A ROR-A B8 CLV 

19 ORA.Y 6C JMP-I B9 LDA.Y 

1D ORA.X 6D ADC BA TSX 

1E ASL.X 6E ROR BC LDY .X 

20 JSR 70 BVS BD LDA.X 

21 AND-1I.X 71 ADC-I.Y BE LDX.Y 

24 BIT-O 75 ADC-0 .X co CPY-$ 

25 AND-O 76 ROR-0O .X Cl CMP-I.X 

26 ROL-0 78 SEI C4 CPY-0 

28 PLP 79 ADC .Y C5 CMP-0 

29 AND-$ 7D ADC .X C6 DEC-0 

2A ROL-A 7E ROR.X c8 INY 

2c BIT 81 STA-I.X cg CMP-$ 

2D AND 84 STY-0 CA DEX 

2E ROL 85 STA-0 cc CPY 

30 BMI 86 STX-0 CD CMP 

31 AND-1.Y 88 DEY CE DEC 

35 AND-0.X 8A TXA DO BNE 

36 ROL-0.X 8C STY Dl CMP-I.Y 

38 SEC 8D STA D5 CMP-0.X 

39 AND .Y 8E STX D6 DEC-0.X 

3D AND .X 90 BCC D8 CLD 

3E ROL.X 91 STA-I.Y D9 CMP .Y 

40 RTI 94 STY-0.X DD CMP .X 

41 EOR-I.X 95 STA-0.X DE DEC .X 

45 EOR-O 96 STX-0.Y EO CPX-$ 

46 LSR-0 98 TYA El SBC-I.X 

48 PHA 99 STA.Y E4 CPx-0 

49 EOR-$ 9A TXxsS E5 SBC-0 

4A LSR-A 9D STA.X E6 INC-0 

4C JMP AO LDY-$ E8 INX 

4D EOR Al LDA-I.X E9 SBC-$ 

4E LSR A2 LDX-$ EA NOP 

50 BVC A4 LDY-0 EC CPX 

-$ : immediate, -I : indirect, -A : accumulator, 

-0 : zero page, X : index X, Y index Y 
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APPENDIX FOUR 
THE ORIC MCP-40 COLOUR PRINTER 


This Appendix is designed to provide a brief review of the 
Oric MCP-40 Colour Printer to enable Oric-l owners to decide 
whether or not it meets their needs. The material is based 
upon the use of an advance review machine - production 


models are reported to be supplied with a demonstration 
cassette tape. 


The MCP-40 Colour Printer is a really a four-colour plotter 
which can be used for text output as well as accepting 
graphical comands. The latter are defined by sending single 
or multi-character sequences to the printer via the Oric-l 
LPRINT instruction. First we consider the machines general 
layout. 


The MCP-40 is about the same size as the Oric-l but is 
Slightly lighter. It is in the familiar pale grey and black 
Oric livery with blue go-faster stripes and the Oric-l 
insignia. It comes complete with an illustrated 32-page 
manual, a large paper roll, four pens and a parallel inter- 
face cable for connecting it to the Oric-l Centronics soc- 
ket. It uses the same rectangular socket as the Oric-l 
rather than a Centronics D-type socket. The review machine 
did not include a power cable but it expects 200 - 240 volts 
AC through the same socket as my cassette recorder so a 
replacement was easily effected. A rocker ON/OFF switch is 
on the bottom right hand side of the printer and three push- 
buttons and two indicator lights form a row at the front 
right. These are, from left to right, POWER indicator 
(green), PAPER END indicator (red), LINE FEED button, COLOUR 
SELECT button and PEN CHANGE button. The left half of the 
printer is taken up by the print mechanism and paper roll, 
and the top cover lifts to reveal the printer innards. 


The four pens, coloured black, blue, green and red respect- 
ively, are located in a cylindrical pen holder. The pen 
currently in use is at the top, and the cylinder rotates to 
change the writing colour. When first setting up the MCP-40 
the pens have to be inserted into the holder, and this is no 
mean task, especially to one who still finds difficulty 
tying his shoe-laces. The manual's illustrations are insuf- 
ficiently detailed to explain exactly what to do and I found 
the entire pen holder came off in my hand. In spite of the 
manual's dire warnings - “be very careful when touching the 
Pen Holder .. it is delicate and can be easily damaged .. 
never rotate or move it manually ..." - I found it slotted 
back in without recourse to a crow-bar and subsequently 
performed without complaint. Pens can be removed by using 
the COLOUR SELECT button to rotate the appropriate pen o the 
top of the holder, and then PEN CHANGE to move and eject the 
top pen. 


The pens move in steps of 0.2mm, so on the paper width of 96 
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mm this effectively allows 480 horizontal steps. There is 
no limit vertically. Characters can be plotted of varying 
sizes, ranging between 80 and 1 characters per line. Plot- 
ting is slow (the manual claims 12 chs per second), but of 
good quality. The printer does a self-test when switched 
on, even if not connected to the Oric-l: it prints four 
small squares, one in each of its colours. In addition it 
will also print out the ASCII character set if switched on 
with the LINE FEED button depressed: 


ae ee 


O' Here? (IK+,—-. 70123456789: 5 <=> P@ABCDE* GO 
-HTJKLMNOPQRSTUUWXY20~\]*%_‘abcdefghiuklmno 
parstuvuuxyz{i}~f 


The MCP-40 operates in two modes - text and graphic. In 
text mode it will list programs (using the Oric-l LLIST 
instruction) or print characters (using LPRINT). In graphic 
mode the printer will plot graphical data sent to it via 
LPRINT. Each mode has its own set of command codes, as we 
now consider. 


The MCP-40 when switched on enters text mode automatically. 
In this mode it will print program results or listings in 
the same way as any printer connected to the Oric-l. It 
does however respond to four control characters in addition, 
sent to it by LPRINT CHRS(n): 


n effect 

8 back-space 

11 reverse line-feed 
18 enter graphic mode 
29 rotate pen holder 


Character code 29 causes the pen holder to rotate one pos- 
ition and thus changing the printing colour. The programmer 
thus has to keep track of which colour is currently in use, 
The printer's line width does not correspond exactly to that 
of the Oric-l screen and this can give clumsy results. For 
example the program line 


10 REM 1234567890123456789012345678901 
2345678901234567890123456789012345678 


gets LLISTed as 


1Q@ REM 1234567898 12345678981 234567898123 
45678901 234567898 1234567896 
12345678 
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Graphic mode has a much wider range of commands available. 
These again are sent to the MCP-40 by LPRINT. 


command effect 
A return to text mode 
Con change to colour n 


(0-3 : black, blue, green, red) 
D x,y... draw from current position to (x,y). 
Series of points may be included 


H move pen to origin 

I set origin to current position 

J dx,dy draw to a point +dx and +dy from cur- 

rent position 

M x,y move pen to (x,y) 

Lt set line type t (0-15 : varying degrees 
of dots / dashes) 

Pc prints character string c 

Qn change to print direction n 
(0-3 : normal, top-bottom, upside down, 
bottom-top) 

R dx,dy move pen to point +dx and +dy from 


current position 
Sn set character size n (0-63 : 80 - 1 chs 
per line) 
X a,n,d draw axis 
a: axis type, O=y, 1=x 
n : number of intervals 
d : interval distance 


The numeric values used in the commands can be expressions 
as well as ordinary numbers. ‘'Move‘ denotes a command which 
moves the pen without drawing. 


Combinations of the above commands can produce very sophis- 
ticated graphical output, but it is unfortunate that a 
simple means of copying the contents of the Oric-l screen 
onto the printer has not been provided - similar to the ZX 
Spectrum's COPY instruction. Also, Oric-l user-defined 
characters are printed as their ordinary ASCII equivalents, 
again limiting the printer's usefulness. 


The following figure shows character sizes 0 to ll inclu- 


na56789NE 


Next. an example program using colour and directional printing: 


1 CALL #E6CA 
2 LPRINT "M10@8,0" 
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1@ LPRINT "S1":LPRINT "CQ" 
28 GOSUB 252 

3@ LPRINT "Q)":LPRINT "C1" 

49 GOSUB 252 

5@ LPRINT “Q2":LPRINT "C2" 

6@ GOSUB 252 

7@ LPRINT "Q3":LPRINT "C3" 

88 GOSUB 252 

9@ LPRINT “Q@":LPRINT "C@":LPRINT "H" 
99 CALL H4£82@4 

249 STOP | 

258 LPRINT "PORIC MCP-4@ PRINTER" :RETURN 


This produces the following output 


ORIC MCP-40 PRINTER 


ORIC MCP-4@8 PRINTER 
AaSLNIadd B@b-dIW JNO 


YILNIAd Bb-dIW JIaO 


The Oric-l has a problem in producing printed output in that 
keyboard scanning interrupts can cause interference and give 
spurious characters on the print-out. This is cured by 
Switching off the interrupts (by CALL +#IE6CA) at the start of 
output and switching them on again (by CALL +iE804) at the 
end, 


The figure below (taken from the MCP-40 manual) shows what 
can be achieved in graphic mode. 


KX KX aa GRAPH xxxx 








| 








| 






| 


| 


’ 


: 





Ea INC 48.94 2 
FB INC 24.4137 2 
E23 c INC 19.3808 
3p INC 10.7863 
ES INC 4.47922 






” 


»® 


x» 
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Unfortunately the routine listed in the manual to produce 
this figure did not work on the review machine, even though 
the routine seemed error-free. In the light of some of the 
bugs on the Oric-l it is hoped that this is not a general 
fault! The problem appeared to occur when numeric expres- 
sions were used in commands, rather than simple numbers. 


In general the MCP-40 provides a useful range of facilities, 
doubling as a hard-copy device for program listings and as 
an accurate plotter. However the prospective buyer should 
give careful consideration to his requirements. Perhaps the 
buyer who is mainly interested in developing programs of a 
scientific or technical nature will find the MCP-40 best 
fits his needs. The printer does not give suitable output 
for report or letters - the paper width is simply not large 
enough - thus the home user or businessman would probably 
not feel it was the best buy. Considering the fact that a 
simple matrix printer may be purchased for not a great deal 
more, there should be a definite requirement for graphical 
output if the Oric-l owner is to extend his machine with the 
MCP-40. 
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INDEX 


ABS 12,13,18 
AND 10,18, 42 


arrays 6,31,104 
ASC 13,20 

ASCII 165 
assignment 7,47 
ATN 12,20 
attributes 14,87 
AUTO 21 

binary 19,54,56,95 
calculation 7,47 
CALL 12,21 
cassette 17,24,26 
CAPS 19 

cells 36 

CHAR 14,22,87 
characters 75,89,115,165 
CHR$ 13,22 


CIRCLE 14,23,87 
CLEAR 16,24 
CLOAD 17,24 


CLS 25 

commands 16 
comments 15,68 
conditions 10,42 
constants 7 

CONT 25 

control codes 16,33 
Cos 13,26 

CSAVE 17,26 


CURMOV 14,27,87 
CURSET 14,27,87 
DATA 9,28,52,67 
data names’ 6,103,104 
data representation 
data type 6,103 
debugging 15 
DEEK 9,15,29 

DEF 15,30 

DIM 6,31 
documentation 15 
DOKE 9,15,31 
DRAW 14,32,87 
EDIT 33 

ELSE 10,33 

END 11,33 

ESC 23,89 

EXP. 34 

EXPLODE 13,34 
FALSE 10,35 

FB code 22 

FILL 14,35,87 


7,102 


FN 30,36 
FOR 11,37 
FRE 15,37 


functions 12 

GET 9,20,38 
GOSUB- 10,12,38,55 
GOTO 10,39,55 
GRAB 15,40 
HEX$ 13,40 
hexadecimal 
HIMEM 15,41 
HIRES 14,42,86,93 
IF 10,42 

INK 14,43,86 
INPUT 8,44 

INT 44 

keywords 164 

KEY$ 13,45 

LEFT$ 13,46 

LEN 13,46 

LET 7,47 

LIST 16,48 

LLIST 16,48 

LN 13,49 

LOG 13,49 

LORES 15,50,85 
LPRINT 9,50 
MCP-40 48,51,167 
MID$ 13,51 
mnemonics 166 
MUSIC 14,52,61 
NEW 16,53 

NEXT 11,53 

NOT 10,42,54 
numbers’ 95 

ON 11,55 
operators priority 
OR 10,42,56 

pages 111,113 
PAPER 14,57,86 
PATTERN 14,58 
PEEK 9,13,15,57,58 
PI 7,59 

PING 13,60 

PLAY 14,52,60,74 
PLOT 14,61,86 
POINT 13,14,62,87 
POKE 9,15,57,63 
POP 64 

POS 13,65 

PRINT 9,66 

PULL 67 


41,95 


8,47 
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READ 9,28,52,67 
RELEASE 15,68 
REM 15,68 
relations 10,42 
REPEAT 12,69,82 
resolution 14,85 
RESTORE 9 

RETURN 12,70 
RIGHT$ 13,70 


RND 13,71 
RUN 72 

SCRN 13,72 
SGN 13,73 
SHOOT 13,73 
SIN 13,73 


SOUND 14,74 
sound 13,52,60,74 
SPC 9,75 

SQR 13,76 
statements 6 

STEP 11,37,76 
STOP 11,76 
storage codes 164 
STR$ 13,77 
strings 7,8,31,46,110 
TAB 9,78 

TAN 13,78 

TEXT 15,79,85,90 
THEN 10,79 

TO 37,79 

trace 16,80,81 
TROFF 16,80 

TRON 16,81 

TRUE 10,81 

INTIL 12,81 

USR 13,15,30,82 
VAL 13,77,83 

WAIT 11,84 

ZAP 13,84 
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The Oric-1 Companion is not aimed at the absolute beginner. The object of ‘ 
the book is to provide a thorough reference guide for those Oric-1 owners ‘ 
who want to get to know the machine in depth. It is a manual that should 

be a constant source of hints and ideas as the reader learns to use the 

Oric-1 more effectively. 


Reviews of previous manuals in the LINSAC Companion series: 


‘Brilliantly successful ... thoughtfully written, detailed and illustrated with 
meaningful programs’ — Educational ZX User Group 


‘A most professional product’ — Education Equipment 


‘Far and away the best ... once again LINSAC has produced the book for 
the serious end of the market’ — Your Computer 
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